#!/usr/bin/env perl

format =
.
BEGIN { use SelfLoader;
    open *q, v60 , $0; s(.*)((<q>)[-1])e;
    open DATA, '<', \s( \S+ (?{ \&{$&} }) )(
      sub $& {  \@_ =
        ( $& => \@_ ) and !wantarray ?
    formline<<"\@_" :  \@_, write && ()
\@_,
\@_
})rgx }

Just another Perl hacker,