Select Code to Download

#!/usr/bin/perl

...
$_ = <IN>;
print GZIP;

# $/ = undef;
# leave $/ at it's default value...
...
while (<IN>) {
    print GZIP;
}