my $mech = WWW::Mechanize->new(
    cookie_jar => {
        file     => 'cookies.txt',
        ignore_discard => 1,
        autosave => 1
      }
);
$mech->get($add);
my $r = $mech->content;
my @names;
my @links = $mech->find_all_images(url_regex => qr/jpg/);
for my $img (@links) {
  my $a = $img -> url_abs;
  push @names, $a;
}