Fetching a static page
- LWP::Simple
#!/usr/bin/perl
use strict;
use warnings;
use Test::More tests => 1;
use LWP::Simple qw(get);
my $home = get 'http://localhost:8080/';
ok $home, 'There is a response';
Fetch a page and check if there is response at all.
$ perl static.t
1..1
ok 1 - There is a response