my @statinfo = stat($filename);
my $size = $statinfo[7];
my $mtime = $statinfo[9];