my $dir = system 'pwd';