Select Code to Download

use strict;
use warnings;

...

sub test1 { print 'test1'; }
sub test2 { print 'test2'; }

use strict;
use warnings;

...

sub test1 { print 'test1'; }
sub test2 { my $x='test3'; &$x }