And you can use the Dump method so the dump shows the actual variable name instead of $VAR1:

#!/usr/bin/perl
use strict;
use warnings;
use Data::Dumper;
use Cwd;
my $dir = getcwd();
print Data::Dumper->Dump([$dir],[qw(*dir)]),"\n";
[download]

Update: as well as what jkahn said, of course =]

cp
----
"Never be afraid to try something new. Remember, amateurs built the ark. Professionals built the Titanic."