Select Code to Download

use strict;
use warnings;
...
my $cr=bless(sub {print "Hello @_\n" },'Before');
$cr->('tweedledum', 'tweedledee');
$cr->('walrus','carpenter');

Stuff before
Hello tweedledum tweedledee
Stuff before
Hello walrus carpenter