package MyMech;

use WWW::Mechanize;
our @ISA = "WWW::Mechanize";

sub _wrapped {
    my $self   = shift;
    my $method = "SUPER::".shift;
    my $result;
    RETRY: for (1..3) {
        eval { $result = $self->$method(@_); };
        if ($@) {
            warn gmtime(time).": $@";
            $result = undef; # just in case
            sleep 5;
        } else {
            last RETRY;
        }
    }
    return $result;
}

sub get { shift->_wrapped('get', @_) }
sub put { shift->_wrapped('put', @_) }
# ...