#!/usr/bin/perl

use Dir::Self;

my $dir =   __DIR__;

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