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


cmpthese(100000, {
    'buildin' => sub {
        my $pwd = getcwd;
    },
    'backtick' => sub {
        my $pwd = `pwd`;
        chomp $pwd;
    },
});

##</code><code>##

$ perl  am368.pl
            (warning: too few iterations for a reliable count)
              Rate backtick  buildin
backtick    4093/s       --    -100%
buildin  1666667/s   40617%       --