package Mylog;

use base qw(Exporter);

our @EXPORT_OK=qw(warn test);

sub warn{
  print "My warn ", @_, "\n";
}

1;

##</code><code>##

#!/usr/bin/perl

package main;

use strict;
use warnings;
 
use Mylog qw/warn/;

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

##</code><code>##

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