Anonymous

    my $request = HTTP::Request->new(GET => "$url"."$path");
    my $result = $browser->request($request);
    open (IMAGE, ">$n.gif") or die "!!!! unable to write image to $n.gif $!";
    binmode (IMAGE);
    print IMAGE $result->decoded_content;
    close IMAGE or die "!!!! could not close image $n.gif: $!";