#!perl use strict; use warnings; use Dumpvalue; use LWP::UserAgent; my($html,$head,$body,$title,$content); print "content-type:text/html\n\n"; # ファイル取得(直接) #open my $FL, '<', 'source.html'; #$html = join('', <$FL>); #close $FL; # …