#!/usr/bin/perl

use Some::Module;
my $obj = Some::Module->new(
   %options, code => \&code 
);
$obj->do_some_work;

sub code { ... }; # not always