#!/usr/bin/perl use strict; use warnings; use HTML::Extract; my $extractor=new HTML::Extract; print "Content-type: text/html\n\n"; print "\n"; print"$extractor->gethtml('http://192.168.0.104/' ,tagname=body,returntype=text)"; print"";