my $sub = \&$name;
$sub->( @args )

##</code><code>##

die "No sub named `$name`" if !defined( &$sub );

##</code><code>##

$invocant->$name( @args )

##</code><code>##

my $method = $invocant->can( $name );
$invocant->$method( @args )

##</code><code>##

die "No method named `$name`" if !$method;