#!/usr/bin/perl

use File::Spec;
use File::Basename qw(dirname);

my $dir = dirname(File::Spec->rel2abs(__FILE__));

print $dir,"\n";
$dir .= '/perl';
print $dir,"\n";