Perlメモ: Perl スクリプトが Windows で実行されているか調べる

# Heuristic to see if we are running under Windows / DOS or Unix
$windows = (-r 'nul' && !-r '/dev/null');