#!/usr/bin/perl

use Text::Markdown;

my $text = join "", <>;
print Text::Markdown::markdown($text);