use strict;


use Getopt::Std;

# my $opt_J="file";
# my $opt_f="file";
# my $opt_s="status";
# my $STATUS="stat";

getopts("J:f:s:");

if ($opt_J)
{
	print "Writing output to $opt_J \n";
}
if ($opt_f)
{
	print "Writing output== to $opt_f \n";
}
if ($opt_s)
{
	print "Status $opt_s \n";
}

#my $STATUS="AC";
#my $STATUS;

$STATUS=$opt_s;
print "Status is $STATUS \n";