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