1234567891011121314 #!/usr/bin/perluse strict;use warnings;use Test::More tests => 1;use Test::WWW::Mechanize;my $mech = Test::WWW::Mechanize->new;my $url = shift;$mech->get_ok( $url, "We should be able to fetch ($url)");
#!/usr/bin/perl
use
strict;
warnings;
Test::More
tests
=> 1;
Test::WWW::Mechanize;
my
$mech
= Test::WWW::Mechanize->new;
$url
=
shift
;
->get_ok(
,
"We should be able to fetch ($url)"
);