Perl codes and news

#!/usr/bin/perl -w

############# Subroutine #############
# le mot subroutine en anglais sous-progr

          
#!/usr/local/bin/perl 

$~ = "MYFORMAT"; 
write; 

format MYFORMAT = 
Here is the text I 

foreach $val(1..9)  #Boucle allant de 1 à 9
{
 #Incrémenter et assigner $x

  $x+=$val;
  printf("

###########  Puissance   #################
# Pour calculer la puissance on utilise
# l'opérateur '**

#!/usr/bin/perl

###########  Sous-chaîne   #################
#  pour retourner une partie de la cha

#!/usr/bin/perl

###########  Caractères et codes ASCII   #################
#  La fonction built-in 

use Time::localtime;
$tm = localtime;
($jour, $mois, $annee) = ($tm->mday, $tm->mon, $tm->year);

open (FILEHANDLE, ">c:/test.txt")
    or croak ("Impossible d'ouvrir le fichier");

# Modifier le

 ##############Opération sur le fichier ##########
 # Copier et coller un fichier
 #
 
# ouverture d

#!/usr/bin/perl

use File::Temp qw(tempfile);

# Créer le fichier temporaire
($fh, $nom_fichier) = t