To those not particulary familiar with parsing command line options in perl scripts: Getopt::Std and Getopt::Long scale much better than -s. The use of -s outside short one-off scripts (like this one) is highly discouraged.....

-Blake