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;
    },
});