use FindBin '$RealBin';
my $listener = Net::TFTPd->new(RootDir => $RealBin,...