c:\test>test
$VAR1 = {
          'thread' => {
                      'subroutine' => 'forthread',
                      'module' => 'Testit'
                    }
        };
forthread called with argument: '1' at Testit.pm line 11.