#!/usr/bin/perl
use strict;
use LWP::Simple;
print "fetching http://www.jtrue.com\n";
my $jfr = get "http://www.jtrue.com";
print "BEGIN FETCH______________\n";
print $jfr."\n";
print "END FETCH________________\n";

print "\n\n\nAnd now we fetch something not local...\n";
print " fetching http://www.google.com\n";
my $gfr = get "http://www.google.com";
$gfr =~ s/^(.{100}).*/$1\.\.\./s;
print "BEGIN FETCH______________\n";
print $gfr."\n";
print "END FETCH________________\n";