sub X { return X($_[0]); }
sub x { return sprintf("%x",$_[0]); }
my $CLIP = Win32::Clipboard();
my $text = $CLIP->GetText();
my $result;
print '$_='.$text."\n";
eval('$_='.$text);
print $_."\n";
$CLIP->Set($_);