Help for this page

Select Code to Download


  1. or download this
    sub warn_from {
    my ($line,$file,$text) =@_;
...


warn_from(42,'captain.pl', "I say what!");
  2. or download this
    /usr/bin/perl -w /home/lanx/warn_new.pl 
I say what! at captain.pl; line 42.