Select Code to Download

    #!/path/to/perl
    use strict;
...
    die "Error $myurl\n ", $page->status_line, "\n Aborting" 
    unless $page->is_success; 
    print "Success", $page1->content_type, " document!\n";

    Error at https://www.redhat.com
    400 Bad Request
    Aborting at test.pl line 30.