view release on metacpan or  search on metacpan

eg/seq-read.pl  view on Meta::CPAN

use strict;
use warnings;

use FindBin qw( $Bin );
use lib "$Bin/lib";

use SequenceFileReader;

my $uri;

# change the protocol to tell which streaming lib to use
#$uri = 'file:///some/local/path/tmp/000000_0';
$uri = 'hdfs:///tmp/000000_0';

# or get it from the command line

$uri = shift || die 'No uri specified!';

SequenceFileReader->new->read_file( $uri );