Select Code to Download

#! /usr/bin/perl -w

...
   $curl->perform;
   print "\n=-----------------------------------------=\n";
}

HTTP/1.1 200 OK
Date: Thu, 29 May 2008 17:25:29 GMT
...

string #2
=---------------------------------------------=