#!/usr/bin/perl

use strict;
use warnings;
use threads;

foreach (0..100)
{
    # create a thread to call the "run_system" subroutine
    # to run "ls -la" on the OS
    my $thread = threads->create("run_system", "ls -la");
    $thread->detach;
}

sub run_system
{
    my $cmd = shift;

    system($cmd);
}

__END__