Select Code to Download

C:\Documents and Settings\Owner\Desktop>perl w32inethttpsample.pl
Perl perl land thread id=27716
...
sleeping while downloading

C:\Documents and Settings\Owner\Desktop>

C:\Documents and Settings\Owner\Desktop>perl w32inethttpsample.pl
Perl perl land thread id=48644
...
PerlCallback: pointer from Perl_get_context() =00233BFC

C:\Documents and Settings\Owner\Desktop>

#!/usr/bin/perl -w
use Win32; #for Win32::GetCurrentThreadId()
...
print 'first 40 chars of file are "'.substr($file,0,40)."\"\n";
 
$http->Close();

--- internet.xs.old    2008-04-15 20:01:52.000000000 -0400
+++ internet.xs    2010-10-05 03:18:24.609375000 -0400
...
 OUTPUT:
     RETVAL

--- makefile.pl.old    2008-02-22 18:41:48.000000000 -0500
+++ makefile.pl    2010-10-03 21:23:51.500000000 -0400
...
     return $self->SUPER::const_loadlibs;
 }