そういう事か〜
$fileの中がユーザーから貰う値なら危険だな

if (-e $file && -f $file) { open (IN, $file); }

これならどうだ