use Net::SFTP;

sub progress{
my ($sftp, $data, $offset, $total) = @_;
my $num_width = length $total;
select STDOUT;
$|=1;
print "<layer>Wrote $offset bytes of $total</layer>";
}

sftp->put($File, $RemoteFile, \&progress);