#! perl -w
use strict;

use threads;
use XML::Simple;
use Data::Dumper;

my $data = '
<cde>
 <thread>
  <module>Testit</module>
  <subroutine>forthread</subroutine>
 </thread>
</cde>
';
my $ref = XMLin( $data );
print Dumper $ref;

my $argument=1;

require $ref->{thread}{module} . '.pm';  ## Line A

my $thread=threads->create(
    \&{ $ref->{thread}{module} . '::' . $ref->{thread}{subroutine} }, # Line B
    $argument
);

$thread->join();

exit(0);