use threads;

test.pl

#!/usr/bin/env perl

use strict; use warnings;

use threads;
use threads::shared;

use YAML::AppConfig;
use Data::Dumper;

$|++;

my $conf_file = "compteur_cours.yaml";

my $conf = YAML::AppConfig->new(file => $conf_file)
    or die "A-peut-pas charger la conf :/\n";

print "Demarrage:\n>>> ";
my $dec = ord(getc);
my $key = chr($dec);

if ($key eq 'd') {
    print "On demarre le cours\n";
} else {
    die "What's wrong with you dude ?\n";
}

my @threads;

foreach my $fn (keys %{$conf->{config}->{prix}}) {
    push @threads, threads->new(\&CoursNow, $fn, $conf->{config}->{prix}->{$fn});
}

$_->join for @threads;

sub CoursNow {
    my ($fn, $price) = @_;

    print "\r>>> ";

    until ($key eq 'f') {
        my $dec = ord(getc);
        my $key = chr($dec);
        $price += $price / 3600 * 2;
        if ($key eq 'f') {
            printf("%s doit %.2f\n", $fn, $price);
            threads->exit;
        }
        sleep(0.5);
    }
}