#!/usr/bin/perl -w

use strict;

# Grab command line parameters
my ($seqcod, $outfnm) = @ARGV;

# Avoid Perl warnings about undefined values
if (!defined $seqcod) { $seqcod = ''; }
if (!defined $outfnm) { $outfnm = ''; }

# Ask user to supply missing parameters.  Exit if user just presses Enter.
if ($seqcod =~ /^\s*$/)
{
     print "  Sequence Code: ";
     $seqcod = <STDIN>;
}
if ($seqcod =~ /^\s*$/)
{
     exit;
}

if ($outfnm =~ /^\s*$/)
{
     print "Output Filename: ";
     $outfnm = <STDIN>;
}
if ($outfnm =~ /^\s*$/)
{
     exit;
}

# All parameters verified.  Proceed.

&doTheRealWork($seqcod, $outfnm);

exit;