use warnings;
use strict;

use Benchmark qw(:all);

my $fname = 'a.txt';

cmpthese( 1, {
    p_read => "p_read($fname)",
});

sub p_read {
    my $fname = shift;
    print "$fname\n";    
}

__END__
atxt
# cmpthese output redacted