>>66
$^OでOSの名前が得られる。

単にファイルパスの処理ならFile::Specモジュールで事足りるよ。