#! /usr/local/bin/perl
 
use File::Copy;
 
$rep="c:/data.txt";
#Copier et coller le répertoire dans un