Use Getopt::Long or Getopt::Std. They're part of the standard library. I didn't even ken the -s option, until today, but I've used Getopt::Std with great success. Here's a snippet that I use to look for people who need help using a tool.

use strict;
use Getopt::Std;

my $file;

usage() unless ($ARGV[0]);

my %opts;
getopts ('h?',\%opts);

usage() if (exists($opts{h}));
usage() if (exists($opts{'?'}));
[download]

This is a sweet module, use it.
TGI says moo