#!/usr/bin/perl

use MyMech;

my $mech = MyMech->new(autocheck => 1);

my $resp = $mech->get("http://localhost:9999/foo");
#  ...

__END__
Mon Oct 12 19:32:48 2009: Error GETing http://localhost:9999/foo: Can't connect to localhost:9999 (connect: Connection refused) at ./800725.pl line 7
Mon Oct 12 19:32:53 2009: Error GETing http://localhost:9999/foo: Can't connect to localhost:9999 (connect: Connection refused) at ./800725.pl line 7
Mon Oct 12 19:32:58 2009: Error GETing http://localhost:9999/foo: Can't connect to localhost:9999 (connect: Connection refused) at ./800725.pl line 7