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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

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

##</code><code>##

dir "c:/windows/system"