#!/usr/bin/env perl
use strict;
use warnings;
use utf8;
use encoding 'utf8';

sub 馬 { "馬函式" };

 # 指鹿為馬
*鹿 = *馬;

print 鹿(), "\n";