my $path = '\\\\2k3-system\\ftpdata$';
print "Reading '$path'\n";
frobnitz( $path );