use warnings;
use strict;

my $thing;

eval {$thing->Cells(1234)};

print "Error <$@>" if $@;