#!/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>)
{
        chomp(my $msg = $_);
        print "Received: $msg\n";
        if ($msg =~ /start/)
        {
                threads->create(\&thread)->detach;
        }
}

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