#!/usr/bin/perl -i
my $sftp_cmd = "sftp $usr\@$address <<EOF \n cd $remote_dir \nbye \nEOF";
my $sftp_log = `$sftp_cmd`;
if ($? == 0) { 
    print "SFTP  Completed Successfully";
}
else { 
    print "SFTP  Failed";
}