use strict;

my $coderef = undef;

$coderef = sub {print "SUB 1\n";};
$coderef .= sub {print "SUB 2\n";};
$coderef->();


##</code><code>##

Can't use string ("CODE(0x8161454)CODE(0x8161514)") as a subroutine ref while "strict refs" in use at /home/ichavero/perlStuff/prueba_coderef.pl line 9.