8 my $conf = {}; # configuration hashref
11 open FP, '<', shift or die "Can't open input file: $!\n";
14 my ($lead,$sub) = split /\t/;
15 print $sub if $sub > 6999999)
22 # set mode on existing filehandles
23 binmode(STDIN, ':utf8');
25 my $rc = GetOptions( $c,
30 show_help() unless $rc;
31 show_help() if ($c->{help});
33 my @keys = keys %{$c};
34 show_help() unless (@ARGV and @keys);
35 for my $key ('output', 'filter')
36 { push @missing, $key unless $c->{$key} }
38 print "Required option: ", join(', ', @missing), " missing!\n";
45 Usage is: extract_loadset [ARGS] INPUTFILE
47 --filter -f Record ID lower bound for