sub print_html() { my ($title, $body) = @_; print < $title $body EOD } sub header() { my ($line) = @_; return "

$line

"; } sub right() { my ($line) = @_; return "
$line
"; } sub horizontal() { my ($line) = @_; return "
"; } sub doublebreak() { my ($line) = @_; return "

"; } sub img() { my ($line) = @_; return ""; # ちょっと改変 } 1;