#!/usr/bin/perl
use strict;

# For debugging:
sub dump {
    my( $name, $ref ) = @_;
    require Data::Dumper;
    my $dumper = Data::Dumper->new( [$ref], [$name] );
    $dumper->Indent(1)->Useqq(1)->Terse(1);
    print STDERR $dumper->Dump();
}

my $foo = "Test value";
dump( foo => $foo );
# Should instead used:
#&dump( foo => $foo );
# ...