#!perl

use 5.10.1;
use strict;
use warnings;
use Carp;

use parent qw'List::Util'; 

...

unless( $arrayref->can('maxstr') ){
  carp $@
}else{ 
  $arrayref->maxstr()
}

exit; #(?) :D