Select Code to Download

$var = 'funcname';
&$var();
sub funcname { print "Hello\n" }

use strict;

#
...
{
    warn($@);
}