$RAMthread = threads->new(sub{$self->GetFreeRAM($serial)}); $heapthread = threads->new(sub{$self->Getheap($serial)}); $cputhread = threads->new(sub{$self->Getcpu($serial)});