#!/usr/bin/perl -w
use strict; # always
use File::Basename;
my $prog    = $^X;
my $basedir = dirname($prog);

print "prog   : $prog\n";
print "basedir: $basedir\n";

##</code><code>##

prog   : /usr/bin/perl
basedir: /usr/bin