Select Code to Download

#!/usr/bin/perl
use strict ;

my $test3 = `dir \"C:\\Program files\"` ;

print ("Test: $test3\n") ;