sftp bash shell script

#!/bin/bash
OF=/Output/$(date +%Y%m%d)
ssh user@host "mkdir $OF"
scp /outputdir/Output/online_payment_export_BM.xls user@host:$OF
scp /outputdir/Output/online_payment_export_ACH.xls user@host:$OF
                                              

1:
2:
3:
4:
5:

#!/usr/bin/perl
use Net::SFTP;
 
$localpath = "/outputdir/Output";
$File1 = "online_payment_export_BM.xls";
$File2 = "online_payment_export_ACH.xls";
$now = `date +%Y%m%d`;
 
$remotefile1 = "/remote folder/$File1";
$remotefile2 = "/remote folder/$File2";
 
## Check and see if the local path and folder already exist if not create them
unless(-d "$localpath/$now"){
	`mkdir -cp "$localpath/$now"` or die;
}
 
## Make sure the local file1 exists
if(-e "$localpath/$File1"){
	## Grab its size
	$File1_size = (stat("$localpath/$File1"))[7];
		if(-d "$localpath/$now"){
			## Copy the file into the local now folder
			`cp "$localpath/$File1" "$localpath/$now/$File1"`;
			## grab the size after the copy and compair.. error it not the same size
			$File1_now_size = (stat("$localpath/$now/$File1"))[7];
			unless($File1_size eq $File1_now_size){
				print "ERROR $localpath/$File1 and $localpath/$now/$File1 are not the same size\n";
				die;
			}
		}else{
			print "ERROR The Folder $localpath/$now does not exist\n";
			die;
		}
}else{
	print "ERROR The File $localpath/$File1 does not exist\n";
	die;
}
 
if(-e "$localpath/$File2"){
	$File2_size = (stat("$localpath/$File2"))[7];
		if(-d "$localpath/$now"){
			`cp "$localpath/$File2" "$localpath/$now/$File2"`;
			$File1_now_size = (stat("$localpath/$now/$File2"))[7];
			unless($File2_size eq $File2_now_size){
				print "ERROR $localpath/$File2 and $localpath/$now/$File2 are not the same size\n";
				die;
			}
}else{
	print "ERROR The File $localpath/$File2 does not exist\n";
	die;
}
 
if((-e "$localpath/$now/$File1") || (-e "$localpath/$now/$File2")){
	## delete the local files
	unlink("$localpath/$File1");
	unlink("$localpath/$File2");
	print "Local copies were sucessful let's put the file\n";
	$host = "remote host name or ip";
	$user = "ssh username";
	$pass = "ssh password";
	%args = (ssh_args => []);
	$args{user} = $user;
	$args{password} = $pass;
	$args{debug} = 0;
	push @{ $args{ssh_args} }, port => 22;
	my $sftp = Net::SFTP->new($host,%args);
	## upload the files to the remote host and then download them
	$sftp->put("$localpath/$now/$File1", "$remotefile1");
	$sftp->put("$localpath/$now/$File2", "$remotefile2");
	$sftp->get("$remotefile1", "$localpath/$File1");
	$sftp->get("$remotefile2", "$localpath/$File2");
		$File1_remote_size = (stat("$localpath/$File1"))[7];
		$File2_remote_size = (stat("$localpath/$File2"))[7];
	## check that the remote files are the same size
	unless(($File1_remote_size eq $File1_now_size) && ($File2_remote_size eq $File2_now_size)){
			print "ERROR One or both of the files did not upload correctly\n";
			die;
	}else{
			## everything was sucessful delete these files
				unlink("$localpath/$File1");
				unlink("$localpath/$File2");
	}
 
}else{
	
	print "ERROR $localpath/$now/$File1 or $localpath/$now/$File1 does not exist\n";
}
                                              

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87: