#!/usr/bin/perl
use strict;
use warnings;
use threads;
use Data::Dumper;

my $thread1 = threads::async  {
    my $sleep = int(rand() * 10);
    sleep($sleep);
    return($sleep);
};
sleep(2);
# if( $thread1->is_running() ) {
#   email("alert");
# } else {
#   print "Thread finished in time, no problem\n";
# }
print "Thread eventually returned ".$thread1->join()."\n";
print "Exit\n";