use strict;
sub push_report {
    my $idx = shift;
    my $file= "/tmp/test123";
    if (-e $file) {
        warn "'$file' exists";
    } else {
        warn "'$file' does not exist";
    };
    if (-f $file) {
        warn "'$file' exists as a file";
    };
    if (-d $file) {
        warn "'$file' exists as a directory";
    };
    open(IN, $file) || die "Couldn't open `$file'";
}