in reply to Lo, for i am blind

Perl requires braces around code blocks on if statements.

    elsif ($on_off eq "off")
     &Off();
    else

[download]

should be

    elsif ($on_off eq "off")
    {
     &Off();
    }
    else

[download]
90% of every Perl application is already written. ⇒
dragonchild

In Section Seekers of Perl Wisdom