Bad Example

##

#!/usr/bin/perl

use strict;
use warnings;

use WWW::Mechanize;

my $mech = WWW::Mechanize->new;

$mech->get('http://yourserverhere/test.html');

print $mech->content( format => "text" );