#!/usr/bin/perl

   use Cwd;
   use strict;
   use warnings;
   no  warnings 'redefine';

   my $cwd = getcwd();

   print "You're in '", getcwd(), "'\n";