Select Code to Download

package Mylog;

...
}

1;

#!/usr/bin/perl

...
use Mylog qw/warn/;

warn("just a test... - warn\n");

[skaark@dhcp-253-59 ~]$ perl t.pl
My warn just a test... - warn