use v6-alpha;

BEGIN {
    require lib;
    import('lib': 'ext/Pod-Event-Parser/lib/');
}

use Pod::Event::Parser;
use Pod::Event::Handler::HTML;

die "usage:
    pod2html.pl <POD file>
" unless @*ARGS;

my $file = @*ARGS[0];
die "Cannot locate '$file'" unless $file ~~ :e; 

my %events = pod2html($*OUT);
parse($file, %events);