1
2
3

$main->repeat(1000, sub { $log = qx(tail -f /var/log/messages) });

$main->Label(-textvariable => $log)->pack();

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