report on file stats from list on stdin

file_stat_report.pl

#!/usr/bin/perl
use POSIX qw(strftime);
use strict;

while(<>)
{
  chomp;
  $_ =~ s/\\/\//g;
  my ($dev,$ino,$mode,$nlink,$uid,$gid,$rdev,$size, $atime,$mtime,$ctime,$blksize,$blocks) = stat("/varidata/research/$_");
  print "/varidata/research/$_\t$uid\t" . strftime("%m/%d/%Y %H:%M:%S",localtime($atime)) . "\t". strftime("%m/%d/%Y %H:%M:%S",localtime($mtime)) . "\t$size\n";
}