Try

my $listener = Net::TFTPd->new('RootDir' => './',...);
[download]

Update:
Ah, I misread the OP.