#!/usr/bin/perl -w
use strict;
use Cwd;

my $new_dir = "/usr/bin";
my $dir;

my $original_dir = getcwd;
print "$original_dir\n";

chdir($new_dir);
$dir = getcwd;
print "$dir\n";

chdir($original_dir);
$dir = getcwd;
print "$dir\n";