Select Code to Download

#! c:\perl\bin -w

use strict;
...
} else {
    print $page->status_line;
}

#! c:\perl\bin -w

use strict;
...
  # extract the cookies
  $cookie_jar->extract_cookies($res);
}