Select Code to Download

#!/usr/bin/perl
use warnings;
...
sub frob {
    12
}

Bareword "frob" not allwoed while "strict subs" in use