I haven't used threads in Perl yet so I can be wrong but I think you have to declare variable as shared:

use threads::shared;
my $status : shared;
[download]

See 'perldoc threads::shared' for details.

--
Ilya Martynov, ilya@iponweb.net
CTO IPonWEB (UK) Ltd
Quality Perl Programming and Unix Support UK managed @ offshore prices - http://www.iponweb.net
Personal website - http://martynov.org