#!/usr/bin/perl -w
use Net::TFTP;

$tftp = Net::TFTP->new("10.1.1.241", BlockSize => 1024);

#$tftp->ascii;

#$tftp->get("remotefile", "localfile");

#$tftp->get("remotefile", \*STDOUT);

#$fh = $tftp->get("remotefile");

$tftp->binary;

$tftp->put("/home/skif/tftp.pl", "remotefile");

#$tftp->put(\*STDOUT, "remotefile");

#$fh = $tftp->put("remotefile");

$err = $tftp->error;

print "ERRORs: $err\n";

$tftp->ascii;

$tftp->get("remotefile", "/tmp/test.tcx");

exit(0);