#!/usr/bin/perl

use Win32::Clipboard;


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

$val = $presse_p->