Select Code to Download

package myswitch;
require Exporter;
...
        Use it as you will at your own risk.

=cut

#! perl -sw
use strict;
...
Expression equals 2

C:\test>