Perlメモ: ファイルが存在するかどうか調べる (if -e)

die "'$filename' already exists.\n" if -e $filename;