#!/usr/bin/perl package main; use strict; use warnings; use Mylog qw/warn/; warn("just a test... - warn\n");