BEGIN
 {
  if ($::dir) {
	$dir = $::dir;
   }
  else {
    $0 =~ '(.*[\\\/])\w+\.\w+$'; 
    $dir = $1;
   }
 }

##</code><code>##

use File::Basename;

my $dir = dirname($0);