use POSIX;

# Get argv handling out of the way first...
if ( @ARGV != 3 or ! -f $ARGV[0] ) {
    die "Usage:  perl $0  FileListToValidate OutFile StatusFile\n";
}

# Next take care of all the i/o file handling...
if ( -e $ARGV[2] ) {
    die "$ARGV[2] already exists -- I will not overwrite it\n";
}
open( STAT, '>', $ARG[2] ) or die "Can't write status info to $ARGV[2]: $!\n";

if ( ! open( OUT, '>', $ARGV[1] ) {
    print STAT "error: can't write output to $ARGV[1]: $!\n";
    exit;
}
if ( ! open( IN, '<', $ARGV[0] ) {
    print STAT "error: can't open $ARGV[0] for input $!\n";
    exit;
}

# Now get to work...
my @inpList = <IN>;
chomp @inpList;

for ( @inpList ) {   # let $_ hold the file name
    tr/"//d;  # get rid of double-quotes
    my @stats = stat;  # do this just once (works on $_ by default)
    if ( ! @stats ) {  # empty list means stat failed
        print OUT join( '|', $_, ( 'notfound' ) x 2 ), "\n";
    }
    else {
        print OUT join( '|', $_, $stats[7], 
            POSIX::strftime( "%m/%d/%Y %I:%M %p", localtime( $stats[9] )), "\n";
    }
}
print STAT "success\n";