#!/usr/bin/perl -W
use Cwd;
print "You're in '", getcwd(), "'\n";