$ cat script.pl
my $directory = shift @ARGV;
print $directory."\n";

$ perl script.pl 'c:\Documents and Settings\All Users'
c:\Documents and Settings\All Users

$ perl script.pl c:\\Documents\ and\ Settings\\All\ Users
c:\Documents and Settings\All Users