Select Code to Download

 
@ARGV = qw(.) unless @ARGV;
use File::Find;
...
@dirs=();
my $dir="\\mlx\\";
find sub {move("$File::Find::name, -d","$dir.$_") or die "This didn't 
+work either"};

 
@ARGV = qw(.) unless @ARGV;
use File::Find;
find sub { print $File::Find::name, -d && "/", "\n" }, @ARGV;