The relevant bit (in my estimation):

my $new_req = HTTP::Request->new(GET => $goto); # Step 11
print "55\n";
$cookie_jar->add_cookie_header($new_req); # Step 12
[download]

First thing I'd want to know is whether that call to HTTP::Request->new() succeeds. A general moral : check the values of system calls. That command fetches a web page, basically, and it could potentially fail. If it does, you can't go on processing. So add or die "Can't get $goto: $!\n"; to the first line. That's one place things might fail. Another is where you actually set $goto ... make sure you have a value to pass to HTTP::Request! You can fix that problem with the same kind of logic (add or die).

An alternative, for non-fatal errors, is to warn instead of die. In this particular case, I would recommend having the program logic cease processing the link at any point of failure.

HTH!

perl -e 'print "How sweet does a rose smell? "; chomp $n = <STDIN>; $r
+ose = "smells sweet to degree $n"; *other_name = *rose; print "$other
+_name\n"'
[download]