El directorio de trabajo en perl

El directorio de trabajo donde se esta ejecutando la rutina perl:

#!/usr/bin/perl

use Cwd;

$dir = getcwd();

print "$dir\n";

die;

Ref.: http://perldoc.perl.org/Cwd.html