# some code here....

for (0 ..3))
{
    my $thr = threads->create (
                sub {
                   my global_var;
		   use SPFtp qw(/^\$/);
		   use SPFtp qw (Connect Login PrepareLsFtpList deleteFile GetFile GetFileSize Logout GetMessage CheckConnection);
                   worker();
                    }
                 )->detach();
}

# Master Thread
while (1)
{
     my global_var;
     use SPFtp qw(/^\$/);
     use SPFtp qw (Connect Login PrepareLsFtpList deleteFile GetFile GetFileSize Logout GetMessage CheckConnection);
    
    master();
}