Select Code to Download

#!perl
use 5.020;
...
$VAR1 = my_bless( {
                    'name' => 'foo'
                  }, 'Foo' );

sub my_bless( $ref, $class ) {
    require $class;
    bless $ref => $class;
}