my $code = qq(print "ABC";);
		eval($code);	
		
		> ABC