Select Code to Download

use Net::TFTP;
my $tftp;
...
print ("error is $err.\n");
print ($@."\n");
print ("put file output is $putfile.\n");

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