use strict; sub push_report { my $idx = shift; my $file= "/tmp/test123"; open(IN, $file) || die "Couldn't open `$file'"; } push_report();