You should call the sub in-order to get it processed

Something like this should work

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