#!/usr/bin/perl -ws
use strict;
# My supported command-line switches:
use vars qw( $switch $help $debug $foo );
$switch= "hooray" unless $switch;