package Test;

sub thr_func {
   my @args = @_;
   print('Thread started: ', join(' ', @args), "\n");
   sleep $args[0];

   return qw(all done);
}

1;