voila le deuxieme script
le script

#! /usr/bin/perl -w
system("clear");
foreach (@ARGV) {
$var.=$_;