use threads;
 $thr = threads->new(\&sub1);    
 sub sub1 {
	 while(1){
	 print "THREAD: in da zone !! :) \n\n"; 
	 sleep 1;
 };
 }

while(1){
	my $stuff='';
	read STDIN , $stuff,10;
	print "MAIN:", $stuff , "\n" ;
}