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