Obtenir le répertoire courant

Utiliser la fonction getcwd du module POSIX :

#!/usr/local/bin/perl

use strict;
use POSIX;

my $current_dir = getcwd;

print "Le reperoire courant est $current_dir\n";

Plus d'informations dans le man de POSIX(3).