use LWP::Simple;

$reponse = get("http://www.cse.lk/marketinfo/splsum.jsp"); 
open(INFILE, ">SCE.htm") or die "Can't open out File: $!\n"; 
print INFILE $reponse;
close INFILE;