Select Code to Download

perl -e "print $_ . qq{\n} for glob q{'c:/documents and settings/*'}"

perl -e "opendir my $d, 'c:/documents and settings'; print $_ . qq{\n}
+ for readdir $d;"

perl -e "open my $f, '<', $ENV{systemdrive} . '/windows/system32/drive
+rs/etc/hosts'; print $_ while <$f>;"

perl -e "$ENV{PATH} = 'c:/windows/'; system( 1, 'notepad.exe', 'c:/win
+dows/system32/drivers/etc/hosts' );"

dir "c:/windows/system"