#!/usr/bin/perl -s
# NOTE: we enabled warnings and -s

use strict;
use warnings;

our $x;	#we need to prevent strict objecting and my would create a 
    # local one that would override the global one that is passed
    # to us if we use -x as a switch.  We need access to the global
    # variable $x that was created by the use of the -s switch and
    # a potential command line argument.

#the -s switch has caused Perl to look for -x on the command line
# and process it into $x if present.  Actually look for any -<alpha>

if ($x) {
  print "The x flag is set to $x\n";
}

print "Other command line arguments: @ARGV\n";