if ( ref($var) && $var->isa("Some::Package") )
{
    $var->someMethod();
}

##</code><code>##

my $sub;
if ( ref($var) && ($sub = $var->can("someMethod")) )
{
    $sub->();
}
else
{
    die "Method someMethod not found."
}