#! /apps/perl/5.8.0/bin/perl -w
use strict;
use lib qw(/home/xf023126/lib/perl5 /home/xf023126/lib/perl5/site_perl);
use HTML::TokeParser::Simple;