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