use Cwd;

$curdir = cwd;
print $curdir, "/", $0;