#!/usr/bin/perl -w

$max=20;
my $current="";
my @chars = (32..126);

sub truc;
sub truc($$)
{
    my $word = shift;
    my $reste = shift;
    if($reste>0)
    {
	for($chars[0]..$chars[$#chars]){ truc($word.chr,$reste-1); }
    }
    else   { print "Word: $word\n";    }
}
truc($current,$max);