use HTML::TokeParser;
use HTML::TokeParser::Simple;
require LWP::UserAgent;
use HTML::Parser;
use Data:umper;

$ua = LWP::UserAgent->new;
my $file="html_content.txt";
my $output_file="parsed_data.txt";

open(FH,">staff.txt");
my $url="http://www.accountancy.smu.edu.sg/facultystaff/faculty.htm";
$ARGV[0]=$url;
print "Parsing $url\n\n";

$request = HTTP::Request->new('GET', $url);

$response = $ua->request($request);
if ($response->is_success) {

print "response successful!\n\n"; 

print FH $response->content();
}

else
{
print "bad luck! unsuccessful request\n\n";
}
close (FH);