#!/usr/bin/perl
use LWP::Simple;
$doc = get 'http://www.accountancy.smu.edu.sg/facultystaff/faculty.htm';

open (SAVE,">test.txt") || die "Can't Open test.txt for writing: $!\n";
binmode (SAVE);
print SAVE $doc;
close (SAVE);