X:\>perl -w tmp.pl Name "main::IN" used only once: possible typo at tmp.pl line 5. Couldn't open `/tmp/test123' at tmp.pl line 5. X:\>type tmp.pl use strict; sub push_report { my $idx = shift; my $file= "/tmp/test123"; open(IN, $file) || die "Couldn't open `$file'"; }