#!usr/bin/perl

$rep="c:/test";

# Renommer le fichier
rename($rep,"c:/test2");

# Supprimer le fi