#!/usr/bin/perl

use FindBin;

my $dir = $FindBin::RealBin;
print $dir,"\n";
$dir .= '/perl';
print $dir,"\n";