Select Code to Download

use strict;
use warnings;
...
          bless( {}, 'Foo' ),
          'hello'
        ];

{
    @_ = ( $obj, @args );
    # rest of 'sub' goes here
}