String Perl

$dir = `cd`; 
print "Directory: $dir\n";