#!/usr/bin/perl -w

use strict;
use LWP::Simple;

#### retrieve web page
my $url = "http://www.visionforum.com/admin/avantgo.asp";
my $page_content = get($url);

#### remove extraneous information and HTML markup
(my $plain_text = $page_content) =~ s/<[^>]*>//gs;

#### extract relevant info
my @lines = split /\n/, $plain_text;
my $title = $lines[10];
my $timestamp = $lines[11];
my $shoppers = $lines[13];
my $num_orders = $lines[17];
my $gross_sales = $lines[18];
my $avg_size= $lines[20];

#### output
print $title;
print $timestamp;
print $shoppers;
print $num_orders;
print $gross_sales;
print $avg_size;

exit;