#! /usr/bin/perl

use strict;
use warnings;
use HardThread;

my $var = HardThread->new();
$var->printer();
$var->starter();

while( <STDIN> ) {
	chomp $_;
	$var->set_internal("INT1", $_);
}

$var->stop_thread();
sleep 5;