package Ugly;

use warnings;
use strict;

my $package = (caller)[0];

sub puke {
    warn @_;
}

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

__PACKAGE__