# Datei auto/dd.pm use Data::Dumper; use strict; use warnings; use Carp; sub dd{ my $self = shift; my $ref = shift || $self; croak Dumper $ref; }; 1;