#!/usr/bin/perl
#
# utilitaire pour me laisser un recours de corbeille
#   (voir le code pour tout détail)
#
use File::Copy;
$liste = $ARGV[1];
foreach (@ARGV) {
    print "-"x8,">    ",$_,"\n";
    move($_,"~/corbeille/".$_);
    chmod(0600,"~/corbeille/".$_);
    
}