Help for this page

Select Code to Download

Select or download this

sub write
{
...
    print "$contestant->{'imie'}";
    print ":$contestant->{'id'}\n";
}