How do I implement multi-threading in Perl

To implement multi-threading in Perl, you can use the 'threads' module, which provides a simple and straightforward way to create and manage threads. Here's a basic example of how to use it:


    use strict;
    use warnings;
    use threads;

    sub thread_func {
        my $id = shift;
        print "Thread $id is starting.\n";
        sleep(2);  # Simulate some work
        print "Thread $id is done.\n";
        return $id;
    }

    my @threads;
    for my $i (1..5) {
        push @threads, threads->create(\&thread_func, $i);
    }

    $_->join() for @threads;  # Wait for all threads to finish
    print "All threads have completed.\n";