my $cmd = "dir /b $dir\\*.bat";
    print "cmd = $cmd\n";
    my $ret = `$cmd`;

##</code><code>##

cmd = dir /b C:\Dir\To\Scan\*.bat
dir: /b: No such file or directory
dir: C:DirToScan*.bat: No such file or directory

##</code><code>##

Note: I already tried this...
    my $cmd = "dir \/b $dir\\*.bat";