This will work:

use warnings;
use PadWalker qw(var_name);;

my $var = 10;
print_name(\$var);

sub print_name {
    print var_name(1, shift);
}
[download]

However, according to the PadWalker docs, it works only if $var is a "my" variable.

Cheers,
Rob