use strict; use Test::More tests => 2; sub test { my $baseUrl = shift; use LWP::UserAgent; my $ua = new LWP::UserAgent; my $response = $ua->get($baseUrl."sample"); ok($response->is_success, "get ok"); like ($response->content, qr/expected text/, "sample test"); } require 'runWebTest.pl'; runWebTest(\&test, 'sampleHandler.pl');