do_this("abc\n");
do_this("123\n");

sub do_this {  
	my $msg = shift;
	new_sub(); 
  	sub new_sub
  	{
    		print $msg;
  	}	
}