eval 'exec perl -S -w  $0 ${1+"$@"}'  # -*- Mode: perl -*-
        if 0; 

use Cwd 'abs_path';
my $dir;
if( $ARGV[0] )
{
  $dir = abs_path("$ARGV[0]");
  print "$dir\n";
}