#! /usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use Bio::SFF::Reader::Random;
die 'No argument given' if not @ARGV;
my $reader = Bio::SFF::Reader::Random->new(file => shift);
print $reader->manifest;
#! /usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use Bio::SFF::Reader::Random;
die 'No argument given' if not @ARGV;
my $reader = Bio::SFF::Reader::Random->new(file => shift);
print $reader->manifest;