package Mylog;

use base qw(Exporter);

our @EXPORT_OK=qw(warn test);

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

1;