use strict; use warnings;
use Benchmark qw(:all);

cmpthese( 1, {
    p_read => "p_read('a.txt')",
});

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

__END__