my $filename = '/var/log/mail.log.0';
open my $fh, '<', $filename or die "$filename: $!";