Ich habe da schon was in der Schublade (ist eigentlich für $foo gedacht) ;-)

Vielleicht stelle ich es am Perl-Workshop ins Wiki...