$foo = `dir C:\bar\`; 
unless ($foo ne "") {die("Could not get directory listing\n");}
@foobar = split '', $foo;