Module1 
Use threads;
Use threads::shared;
Use Module 2;

sub thread_it 
{   
   Code that uses threads/threads::shared 
}

sub fork_it
{
   my $mod2 = Module2->new()
   $mod->fork_it()
}