Select Code to Download

#! /usr/bin/perl -w

use strict;
...
bar
Judge my vow, sphinx of black quartz
__END__

+--------------------------------------------------+------------------
++
| 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F  | 0123456789ABCDEF 
+|
+--------------------------------------------------+------------------
++
...
| 28 2C 4D 2C 2A A9 E2 02 00 7B AE 4A 0D 2D 00 00  | (,M,*®Ô..{«J.-.. 
+|
| 00                                               | .                
+|
+--------------------------------------------------+------------------
++

+--------------------------------------------------+------------------
++
| 00 01 02 03 04 05 06 07 08 09 0A 0B 0C 0D 0E 0F  | 0123456789ABCDEF 
+|
+--------------------------------------------------+------------------
++
...
| 4F 53 48 CA 49 4C CE 56 28 2C 4D 2C 2A A9 E2 02  | OSH-IL+V(,M,*®Ô. 
+|
| 00 66 87 0F C8                                   | .fç +            
+|
+--------------------------------------------------+------------------
++

$gz = gzopen( $file, 'rb' ) or die "Cannot open $file for gzread: $gze
+rrno\n";
while( $gz->gzreadline($line) > 0 ) {
        print $line;
}
die "Error reading from $file: [$gzerrno]\n" unless Z_STREAM_END == $g
+zerrno;
$gz->gzclose();