$ ls -l T*.pdf
-rw-rw-r--    1 zaxo   zaxo     362870 Sep  3  2002 The_Perl_Review_0_5.pdf
-rw-rw-r--    1 zaxo   zaxo     352282 Jan  6  2003 The_Perl_Review_0_6.pdf
-rw-rw-r--    1 zaxo   zaxo     263105 Jan  6  2003 The_Perl_Review_0_7.pdf
$ perl -MPerlIO::gzip -e'for (@ARGV) {local $/ = \4096; open my $ih, "<:raw", $_ or warn $! and next; open my $oh, ">:gzip", $_.".gz" or warn $! and next; while (<$ih>) { print $oh $_ }}' T*.pdf
$ ls -l T*.pdf.gz
-rw-rw-r--    1 zaxo   zaxo     331242 Jun 25 14:57 The_Perl_Review_0_5.pdf.gz
-rw-rw-r--    1 zaxo   zaxo     327834 Jun 25 14:57 The_Perl_Review_0_6.pdf.gz
-rw-rw-r--    1 zaxo   zaxo     235150 Jun 25 14:57 The_Perl_Review_0_7.pdf.gz
$ file T*.pdf.gz
The_Perl_Review_0_5.pdf.gz: gzip compressed data, deflated, last modified: Fri Jun 25 14:57:55 2004, os: Unix
The_Perl_Review_0_6.pdf.gz: gzip compressed data, deflated, last modified: Fri Jun 25 14:57:56 2004, os: Unix
The_Perl_Review_0_7.pdf.gz: gzip compressed data, deflated, last modified: Fri Jun 25 14:57:56 2004, os: Unix
$