#! /usr/bin/env perl
use strict;
use warnings FATAL => 'all';
use JSON;

use Bio::SFF::Reader;
die 'No argument given' if not @ARGV;
my $reader = Bio::SFF::Reader->new(file => $ARGV[0]);
print to_json({ %{ $reader->next_entry} }, {pretty => 1});
