use strict;
use WWW::Mechanize;
my $agent = WWW::Mechanize->new();

my $url = '"http://www.accountancy.smu.edu.sg/facultystaff/faculty.htm';

$agent->get($url);
print "Got return code ", $agent->code, "\n";

open FH, ">", "staff.txt";
print FH $agent->content;
close FH;