#! /usr/bin/perl

use warnings;
use strict;

use IO::Uncompress::AnyUncompress;

die "No file specified\n" unless @ARGV;
my $raw = IO::Uncompress::AnyUncompress->new($ARGV[0]) or die $!;

while (<$raw>) {
    print substr($_, 0, 20), "\n";
    exit();
}
