Select Code to Download

#!/usr/bin/perl -w
use strict;
...
print mytime($httpdate);
print mytime2($httpdate);
print str2time($httpdate);

C:\Documents and Settings\Owner\Desktop>perl myhttpdate2.pl
with sprintf int 0.413187026977539
...
1282730198

C:\Documents and Settings\Owner\Desktop>

#!/usr/bin/perl -w
use strict;
...
print mytime4($httpdate);
print mytime5($httpdate);
print str2time($httpdate);

C:\Documents and Settings\Owner\Desktop>perl myhttpdate2.pl
with sprintf int 0.343380928039551
...
1282730198

C:\Documents and Settings\Owner\Desktop>