my $stat = stat($filename) or die "Can't stat file $filename";