multisub print
{
    my $invocant = shift;

    if (UNIVERSAL::can( $invocant, 'print')
    {
        return $invocant->print(@_);
    }

    print ($invocant, @_);
}