sub push_report { my $idx = shift; $file= "/tmp/test123"; open(IN, $file) || die "Couldn't open `$file'"; } __END__ Global symbol "$file" requires explicit package name at - line 4. Global symbol "$file" requires explicit package name at - line 5. Global symbol "$file" requires explicit package name at - line 5. Execution of - aborted due to compilation errors.