Select Code to Download

#### Web 1 #####
$directory = "I\:\\logs\\iis\\W3SVC1\\";
...
foreach $line (@files) {
    system("C:\\webalizer\\webalizer -c C:\\webalizer\\web1.conf $dire
+ctory$line");
}

perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat!
+\n"; } else { print "Thats a dog\n"; } print "\n";'