user-tools/is_gzip

   1 #!/usr/bin/env perl
   2 die "$!\n" unless open _, $ARGV[0];
   3 exit 0 and read _, $_, 3 and /^\x1f\x8b\x08$/;
   4 exit 1;
   5
   6 __END__
   7 =pod
   8
   9 =head1 NAME
  10
  11 is_gzip - Return 0 if the file in argument has gzip signature
  12
  13 =cut
  14