Select Code to Download

#!/usr/bin/perl
use strict;
...
print "Content-type: text/html\n\n";
print "Result: ";
print $pop3;

Content-type: text/html

Result: IO::Socket::INET=GLOB(0x9314838)

Content-type: text/html

Result: