use threads;

use strict;
use warnings;

threads->create(\&foo);
threads->create(\&bar);
while (1) {
	sleep(60);
}

sub foo {
   while(1) {
       print "foo\n";
   }
}

sub bar {
   while(1) {
       print "bar\n";
   }
}