$ perl -v

This is perl, v5.10.0 built for i686-linux

[...]

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