#!/usr/bin/perl use strict; use Digest::MD5 qw(md5_hex); use Text::Markdown; our $VERSION = "0.1"; # Don't want to do silly email address escaping. sub Text::Markdown::_EncodeEmailAddress { return $_[0]; } my $new_file = "html-markdown-alternative"; my $file = $ARGV[0]; open my $fh, "<", $file; my $text = join '', <$fh>; close $fh; my($headers, $body) = split /\n\n/, $text, 2; my $html = Text::Markdown::Markdown($body); $html = < $html EOF open my $fh, ">", "/tmp/" . $new_file . ".html"; print $fh $html; close $fh;