#!/usr/bin/perl
use strict;
use vars qw($a $b);

print "a: $a\n";
print "b: $b\n";

##</code><code>##

[me@host]$ perl -s tmp.pl -a
a: 1
b: 
[me@host]$

##</code><code>##

------------
:Wq
Not an editor command: Wq