#!/usr/local/bin/perl
# Jaime Prilusky, 2004

use Cwd qw 'cwd abs_path'; 

  $cdir = cwd();
  print "We are at $cdir";

  my $dir = $ARGV[0] || "."; 
  $path = abs_path($dir);

  print qq{
received     $dir
Full path is $path
};