Select Code to Download

my @test = system($command) ;
print @test ;

#!/usr/bin/perl -w
use strict ;
my @test = system("dir") ;
print @test ;

 Volume in drive E is E_Drive
 Volume Serial Number is XXXX-XXXX

...
               1 File(s)          1,336 bytes
               2 Dir(s)   1,629,966,336 bytes free
0

#!/usr/bin/perl -w
use strict ;
my @test = system("dirt") ;
print @test ;

'dirt' is not recognized as an internal or external command,
operable program or batch file.
256