There are a couple of ways you can do it. Read perldoc Net::SFTP

You could just retrieve the same file you just transferred, and see
if the md5sums match. Or you could take an ls of the directory.

Here is the idea for the ls. It returns an arraoy-of-hashes, so it
gets a little complex, you made need to adjust the regex I used.
I modified your script slightly.

#!/usr/bin/perl
use warnings;
use strict;
use Net::SFTP;

#Who am I and where am I going?
my $user = 'z';
my $pass = 'foofum';
my $sftp;
my $file = "test.txt";
my $put_to_dir = "/home/z/2";
my $put_from = $0; #upload this file
my $host = '0.0.0.0';
my $result;

#Where the real action takes place...
$sftp = Net::SFTP->new($host,
"user" => $user,
"password" => $pass,
) or die "Can't login $!n";

$sftp->put($put_from, "$put_to_dir/$file") || die "Can't open $!n";

#do check here
my @AOH = $sftp->ls($put_to_dir);
foreach my $href(@AOH){
foreach my $key( %{$href} ){
if(defined ${$href}{$key}){
if( ${$href}{$key} =~ /-rwxr-xr-x(.*)$file$/ ){
$result = ${$href}{$key};

}
}
}
}

# Writting log files for transfers
open LOGS, ">> $0.log" or die "Can't open file, $!n";
# Get my dates
my $date;
my ($sec,$min,$hour,$mday,$mon,$year) = (localtime) [0,1,2,3,4,5];
$year=$year+1900;
$mon=$mon+1;
$date = sprintf("%02d%02d%02d", $year,$mon,$mday);
#
# Write my logs so I can track myself
print LOGS
"Transfer date:$date, File transfered:$put_to_dir/$filen$resultn";
close LOGS;
__END__




--
I'm not really a human, but I play one on earth.
http://zentara.net/japh.html

If you are looking for better logging interfaces, check out log4perl,
not aware of anything that can top it.

http://log4perl.sf.net

HTH,

http://danconia.org

[snip code]