@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"};