sub lePlusGrand {
    return unless -f && -s _ > $taille_fichier;
    $taille_fichier = -s _;
    $nom_fichier = $File::Find::name;

public void ()
public void (boolean lines, boolean shapes)
public void setBarRenderer(org.jfree.chart.renderer.category.BarRenderer categoryItemRenderer)

@reverse_lines = reverse @lines;
print @reverse_lines;

la somme de tous les fichiers des répertoires et sous répertoires
my $somme_octet = 0;
find sub { $somme_octet += -s },

$dir = "c:/";
print "Voici les fichier textes de $dir:\n";
#!/usr/local/bin/perl 
opendir(BIN, $dir) or die

for $href ( @myArraysHash ) {
    print "{ ";
    for $role ( keys %$href ) {
         print "$role=$href->{$role} ";
    }

#!/usr/bin/perl -w

use Win32::OLE;
use Win32::OLE::Const 'Microsoft Excel';
use strict;

# créatio

#!/usr/bin/perl -w

use Win32::OLE;
use strict;

# création d'un objet OLE sur MS Excel
my $xls_app 

#!/usr/bin/perl

use Win32::Clipboard;


my $presse_p = Win32::Clipboard->new();

$val = $presse_p->