Select Code to Download

#!/usr/bin/perl
use strict;
...

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

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

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