my $argc = @ARGV;

if($argc != 1) {
 print "Usage: \$ $0 <scsfile>\n";
 exit;
}

my $scs = $ARGV[0];