Perl codes and news

  #!/usr/bin/perl -w

$_ = "J'aime Perl version 6 et java version 1.7 pour 2012";

$count=0;
# Trouv

print 2 << 4,"n";
print 0b01000000 << 4,"n";

#!/usr/bin/perl -w

my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',
    		

#!/usr/bin/perl

binmode(STDOUT,":unix");
for (0..20) {
    print "."; sleep 1;
}

$text = "Perl version ";
$nombre = 6.0;

# Concatener  la chaîne avec le nombre
$concat =$text . $

#!/usr/bin/perl -w
my %mes_villes = ("Allemagne" => "Berlin",
    			  "France" => 'Paris',
    			 

#!/usr/local/bin/perl -w

sub somme
{

    my ($num)= @_ ;        # Les paramètres de la fonction

$ uid=9496;
$ gid=40;
$number=chown($uid, $gid, 'test.vim', 'you.vim');

#!/usr/bin/perl -w

use strict;

my @tab;                            #déclaration d'un tableau

# In

#!/usr/bin/perl -w

use Net::FTP;

$username = "test_username";                # Nom d'utilisateur
$