Help for this page

Select Code to Download

Select or download this

sub undef_ref {
    my $ref    = shift;
...
    print "\n";
    print Dumper (@$ref);
}