user@hopper> perl -w
use strict;
use Cwd;

my $sandbox = "/tmp/frontier";

test("$sandbox");

sub test() {
    my $directory = "@_";
    my $pwd = getcwd;
    print "Directory is: $directory\nYou path is: " . getcwd ."\n";

    if ( "$pwd" eq "$directory" ) {
        print "You are not in the same directory as $directory!\n";
    } else {
        print "You are in $directory\n";
    }
}
Sandbox is: /tmp/frontier
Your pwd is: /u20/home/user
You are in /tmp/frontier