What have you tried and how did it fail?

I can only suggest to structure your code the follwing way:

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