#!/usr/bin/perl -w
$age = 25; 
$prenom ="Jean"; 
$salut = "Bonjour";
$s1 = "Bonjour $prenom\n" ;
print $s1;
$s2 = 'Bonjour $prenom\n' ;
print $s2;
$s3 =  $salut." ".$prenom."\n"; 
print $s3;
$s4 = "$salut $prenom\n"; 
print $s4,"\n";
$s5= "As tu vraiment". $age."? \n";
print $s5;