Select Code to Download

my $hn = qx[c:\\WINDOWS\\system32\\hostname.exe];

my $res = qx[c:\\WINDOWS\\system32\\dsquery.exe computer -name $hn];

#!perl

...
               1 File(s)        284,160 bytes
               0 Dir(s)   5,173,231,616 bytes free