#!/usr/bin/perl
use strict;
use warnings;
use Win32::Clipboard;

my $clip = Win32::Clipboard();
my $text = $clip->Get();

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

print $fh2 $text, "\n";