use warnings;
use WWW::Mechanize::Firefox;
use DBI;
use Data::Dumper;

    my $url = ("https://www.draftkings.com/contest-lobby");
    my $mech = WWW::Mechanize::Firefox->new();
    $mech->get( $url ) or die("Can't Get Web Page!");

    $contest = $mech->eval_in_page('packagedContests');
  
    print $contest->{n};
    print $contest->{id};