my $listener = Net::TFTPd->new('RootDir' => 'c:/',
...