#! /usr/bin/perl -w

chomp( my $var = `pwd` );

print "You are here -> $var <- in case you were lost\n";