...
unless (defined $opt{s}) {
        print "it exists\n" if (-e $dir); #here 
        print "its a dir\n" if (-d $dir); #and here
        dircopy("$dir","$moves{$dir}") or die("\n!: Couldnt copy \"$dir\" : $!\n");
...