#!/usr/bin/perl -w

use strict;
use threads qw( yield );
   
    my $thread1 = threads->new(\&sub1);
    my $thread2 = threads->new(\&sub2);

    my @data = $thread1->join;
    print "'Thread1' returned @data";

    my @data2 = $thread2->join;
    print "'Thread2' returned @data2";

    sub sub1 {
       yield;
       sleep 1;
       print "I'm a perl programmer!\n";
       return "Threading in perl is fun!\n";
    }

    sub sub2 {
      print "I like computing!\n";
      return "Computing is cool!\n";
   }