1
2
3
4
5

sub new() {
   my ($class) = shift;
   my $self = {};
   my $self->{dir} = shift;
   print $self->{dir};

perl -Mstrict -Mwarnings -e 'package blub; sub new { bless {} } sub bar {my $self=shift; $self->{bla}="5065726c2d436f6d6d756e697479"; return $self->{bla};} my $foo=blub->new();print "Hallo ";print pack("H*",$foo->bar()); print "\n"'

http://perl-tutor.de