chomp (my $dir = `/bin/pwd`);