Select Code to Download

use CGI qw/:standard/;
print header();
print `net use`;
print `dir w:`; # where W is mapped to \\computername\sharename
print `dir \\\\computername\\sharename`;