102 > perl xx.pl
103 > perl -0 -ne's/;eval//;eval;eval' xx.pl
Unquoted string "white" may clash with future reserved word at (eval 3) line 1 (#1)
    (W reserved) You used a bareword that might someday be claimed as a
    reserved word.  It's best to put such a word in quotes, or capitalize it
    somehow, or insert an underbar into it.  You might also declare it as a
    subroutine.

104 > perl -MV=Tk
Tk
        /pro/lib/perl5/site_perl/5.8.7/IA64.ARCHREV_0-LP64/Tk.pm: 804.027
105 >