use Net::TFTP;
my $tftp;
my $err;
my $putfile;

$tftp = Net::TFTP->new("server.com", BlockSize => 1024);
$tftp->binary;
$putfile = $tftp->put("./test.log");
#$tftp->quit;
$err = $tftp->error;

print ("error is $err.\n");
print ($@."\n");
print ("put file output is $putfile.\n");

##</code><code>##

$putfile = $tftp->put("./test.log");