#!/usr/bin/perl ?Cw

use Win32::Clipboard;

my $presse_p = Win32::Clipboard->new();

# Enregistrer l