@ARGV = qw(.) unless @ARGV;
use File::Find;
use File::Copy;
use Data::Dumper;

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

##</code><code>##

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