Display contents from html file to a webpage.How?

Python, Perl and Golang Perl
1

Hi,
I’m trying to build a perl script for the following:

  1. I’ve a perl script from which an email is sent to specific people about the results. I’ve used MIME::Lite for the email. I’ve now used this MIME::Lite module to store the email into a html file such as xyz.html at a location on the system.
  2. Now, i need to display the already created .html file on a webpage which is almost like the below example:
    http:www.xyz.com/pages/editpage?123456
  3. I’ve googled for a solution for this the entire week but didn’t find any concrete solution. Thereby, please provide me some pointers or any help on how to go about this would be of great help.

Below is a script which doesn’t work as per the above requirements.

$ua = new LWP::UserAgent;
$req = new HTTP::Request GET => 'http://www.xyz.com/pages/editpage.action?pageId=197432134';
$req->authorization_basic('sqabuilder', 'Pallas582_556_500');
$output = $ua->request($req)->as_string;
#$output =~ s!^HTTP/\\d+\\.\\d+!Status:!;
$output =~ /^Android\\sAutomation\\srun\\son/;
print "Edited page is:". $output . "\
";
$uname = 'sqabuilder';
$paswd = 'Pallas582_556_500';
		use LWP::UserAgent;
        $ua = LWP::UserAgent->new;
		use Term::ReadKey;
		$pf = 'Android Automation run';
		$f1="confluence.html";
		$weblink='http://www.xyz.com/pages/editpage.action?pageId=197432134';
		open (out,"<$f1");
		web_login();
			 $req = HTTP::Request->new(GET =>"$lne");
			 print outfile "updated on 30th August\
";
			 print outfile $ua->request($req)->as_string;
			 close outfile;
			 print "Please wait updating the changes\
";
			 
	sub web_login
	{    
	     print "Weblink is: $weblink \
"; 
		 $req = HTTP::Request->new(GET =>"$weblink");
		 $req->authorization_basic("$uname", "$paswd");
		 #$req->credentials( $uname, $paswd );
		 print "Please wait: attempting to login\
";
		 print out $ua->request($req)->as_string;
		 close out;
	}

Thanks a lot in advance.

Rgrds,
Ramki