#!/usr/bin/perl
if ($ARGV[0] eq '-s') {
   my $argument = shift @ARGV;
}
print "$argument";