use BackPAN::Index;
    my $backpan = BackPAN::Index->new;
    my $dist = $backpan->dist("MIME-Base64");
    my $releases = $dist->releases;
    print join "\n", map { $_->version } $releases->all;