#!/usr/local/bin/perl5 -w


$mydir = `pwd`;  

print "$mydir\n";