my ($fastq) = @ARGV:
my ($reads, $bases) = cal_sequence_info($fastq);
print qq{$reads\t$bases\n};

sub cal_sequence_info {
    my $fastq = shift;
    my $file_handle =   $fastq =~ /gz$/ ? qq{$fastq} : qq{gzip -dc $fastq |};
    open FASTQ, $file_handle or die "Can't open $fastq\n";
    my ($reads, $bases);
    while (my $readid = <FASTQ>) {
        my $quality   = <FASTQ>;
        my $comment   = <FASTQ>;
        my $sequence  = <FASTQ>;
        chomp($sequence);
        $reads++;
        $bases += length $sequence;
    }
    close FASTQ;
    return ($reads, $bases);
}