#!/Perl/bin/perl

use strict;
use warnings;
use Data::Dumper qw/Dumper/;



func( -name => 'wert' );



=head1 METHODEN

=head2 func( -name => 'wert' )

Nur zum Testen...

=cut

sub func {
	my %p = @_;
	print Dumper \%p;
	
	# alternativ:
	#my @p = @_;
	#print Dumper \@p;
	
} # /func