#!/home/alerting/perl5/perlbrew/perls/perl-5.20.2/bin/perl

use warnings;
use IO::Handle;
use threads stack_size => 64*1024;
use strict;
use DBI;
use Email::MIME;
use Email::Sender::Simple qw(sendmail);

while (<STDIN>)
{
     threads->create(\&thread)->detach;
     sleep 5;
}

sub thread
{
        print "Thread started!\n";
        sleep 4;
}