use strict;
use Thread;

my $thr1;
my $thr2;
my $status = "1111";
   
      
print "Started\n";

$thr1 = new Thread \&sub1;
$thr2 = new Thread \&sub2;


sub sub2 {
	while (1) 	{
			print $status;
			}
	}


sub sub1 { 

  	while (1)	{   
  			$status = "0000";
  			print $status;
			} 
	}
	

$thr1->join;
$thr2->join;