c:\test>perl
use strict;
use warnings;

sub install{ print 'hi' }
*upgrade = \*install;
install();
upgrade();
^Z
hihi