#!/usr/bin/perl
use warnings;
use strict;
use threads;

my $thr = threads->new(\&sub1);

print "thread running now\n";

$thr->join(); # wait for trivial thread to finish
                   # and return

sub sub1{
  system("documentation.doc");
  print "Done in thread\n";
}