#!/usr/bin/perl
my $dir = shift;
chdir $dir or die "$dir: $!\n";
system("pwd");
