14 lines
187 B
Perl
Executable File
14 lines
187 B
Perl
Executable File
#!/usr/bin/perl
|
|
|
|
use feature qw(say);
|
|
use Text::Markup::Markdown;
|
|
|
|
my $html = Text::Markup->new->parse(file => 'menu.md');
|
|
|
|
|
|
open my $fh, ">", "index.html";
|
|
print $fh $html;
|
|
|
|
|
|
say $html;
|