Select Code to Download

#!/usr/bin/perl --

use strict;
...

my $h = factoryThree('lulz');
$h->();

factory: 'lulz'
eval:    'lulz'
factory: 'frunz'
eval:    ''
factory: 'lulz'
eval:    'lulz'