my $code = q(
             sub { 
          		my ($x, $y);
	        	  doSomeStuff($x, $y); 
	          }
	    );

my $sub = eval ($code);