1
2
3
4
5
6
7
8
9

#!/usr/bin/perl
use strict;
use warnings;

open(PROG, "-| @ARGV");
while(<PROG>) {
print $_;
}
close(PROG);

print $_ for (<STDOUT>);

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