Select Code to Download

use IO::Socket::INET;

...
    print $foo;
    print "\n";
}

========
HTTP/1.1 200 OK
...
HTTP/1.1 200 OK
========
HTTP/1.1 200 OK