Select Code to Download

sub test {
    print "nothing\n";
...
my $var = 'test';
&$var;
# will call the sub, if you are not using strict.

#!/usr/bin/perl -w
use strict;
...
for ('who', 'what') {
        print $_, "?\t", $camel->$_, "\n";
}