#!/usr/bin/perl
 
use Win32::Clipboard;
 
 
my $presse_p = Win32::Clipboard->new();
 
$val = $presse_p->