Salut

Je te propose le script Perl suivant :


#!/usr/bin/perl -w

use strict;

sub mv {