Select Code to Download

use strict;                                                           
+                                       
use warnings;
...
sub TestSub2 {
    print "TestSub2\n";
}

$_=TestSub1
$_=TestSub2
...
$VAR3 = 'TestSub2';
$VAR4 = \'TestSub2';
Not a CODE reference at ./triv.pl line 22.