Convertit le nom passé en argument en minuscules
#!/usr/bin/perl $MAJ = $ARGV[0]; $min=lc($MAJ); #~ tr/A-Z/a-z/; print "$min";