use Encode 'decode';
...

my $text = $clip->Get();
$text = decode('Latin1', $text);

open my $fh2,'>', $ofile or die "Error opening output file $ofile: $!\n";
binmode $fh2, ":encoding(UTF-8)";

print $fh2 $text, "\n";