use File::stat;
$st = stat($file) or die "No $file: $!";