#!/usr/bin/env perl -lw
use strict;
package Test;
sub if  { return  "if($_[-1])" }
sub log { return "log($_[-1])" }
BEGIN {
    *main::if= \&if;
    *main::log= \&log;
}
my $foo= 1;
$_= 'Oops!';
$|= 1;

print if( $foo );
print Test->if( $foo );
print log( $foo );
print '';

package main;
print if( $foo );
print main->if( $foo );
print log( $foo );