my $batchfile = "/tmp/batchfile.$$";
open my $bfd, '>', $batchfile or die $!;
print $bfd  <<EOF;
put $gz_filename $dest_path
bye
EOF
close $bfd;
my $return_value = system('sftp', "-b $batchfile", $host);
unlink $batchfile;