MHTML.pm

ファイルハンドルを渡して出力。

use MHTML;
open( my $fh, '>', "./out.mht" );
get_mht('http://www.example.com/')->print($fh);
	  

文字列として出力。

use MHTML;
print get_mht('http://www.example.com/')->as_string;
	  

LWP::UserAgentで取得したレスポンスを再利用して出力。

use LWP::UserAgent;
my $ua = new LWP::UserAgent;
$ua->agent('Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1)');
my $req = HTTP::Request->new( GET => 'http://www.example.com/' );
$req->referer($base_url);
my $res = $ua->request($req);
 
use MHTML;
open( my $fh, '>', "./out.mht" );
get_mht( [ $ua, $res ] )->print($fh);