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

##</code><code>##

Subroutine Cwd::fastcwd redefined at /usr/lib/perl5/5.8.5/i386-linux-thread-multi/XSLoader.pm line 92.