Select Code to Download

use strict;
use subs "TestMe";

BEGIN {    $x = 10; TestMe(); }
sub TestMe {"Test fine"}