yippy( sub { my($seq ) = @_; warn $seq; } );
sub yippy {
    my( $do_something ) = @_;
    my $reader = Compress::DSRC::Archive->new;
    my $seq = Compress::DSRC::FastqRecord->new;
    while ($reader->next_seq($seq)) {
        $do_something( $seq );
    }
}