#!/usr/bin/perl -w

#use of backticks..

$path = `pwd`;
print "Path is: $path\n";

#BE CAREFUL!  This cd doesn't do what you want it to do!
`cd ~/public`;
$path = `pwd`;
print "Path is $path\n";