#!/usr/bin/perl
use warnings;
use strict;

use Ugly ();

puke('Where does it come from?');

##</code><code>##

package Ugly;

use warnings;
use strict;

my $package = (caller)[0];

sub puke {
    warn @_;
}

{   no strict 'refs';
    *{$package . '::puke'} = \&puke;
}

__PACKAGE__