E:\perl>perl mech.pl
Bareword "Accept" not allowed while "strict subs" in use at mech.pl line 8.
Execution of mech.pl aborted due to compilation errors (#1)
    (F) With "strict subs" in use, a bareword is only allowed as a
    subroutine identifier, in curly brackets or to the left of the "=>"
    symbol.  Perhaps you need to predeclare a subroutine?

Uncaught exception from user code:
        Bareword "Accept" not allowed while "strict subs" in use at mech.pl line
 8.
Execution of mech.pl aborted due to compilation errors.
 at mech.pl line 17