#!/usr/bin/env perl

use Modern::Perl;

use FindBin;
use lib "$FindBin::RealBin/lib";

use Getopt::Long;
use Pod::Usage;
use WWW::Mechanize;
use Data::Dumper;

my $successful_parse = GetOptions(
   'help|?'       => \ my $help,
   man            => \ my $man,
   'url=s' => \ my $url
  )
  or pod2usage(2);

if ( !$successful_parse || ( @ARGV > 1 ) ) {
    die qq{Usage: $0 [ --url]\n};
}

if ( !defined $url ) {
   die qq{Usage: $0 [ --url]\n};
}

# Get url from input param
# https://www.mozilla.org/en-US/security/advisories/mfsa2024-07/

my $mechanize = WWW::Mechanize->new(autocheck => 1);
$mechanize->get($url);
my $page = $mechanize->content;

# Get text from each level-heading class
# ex
# <h4 id="CVE-2024-1546" class="level-heading">
# And then Metacpan had a 502 so I couldn't find docs on how to get this X|


# Get CVEs in form of CVE-2024-1546