#!/usr/bin/perl

use Cwd;

$cur_dir=getcwd();

print "Current Dir -> $cur_dir\n";

system("cd /home/sa/temp");

$new_dir=getcwd();
print "Changed path -> $new_dir\n";