use warnings;
use lib 'S:\FCMS\Barcode'; # Hier liegt das heruntergeladene Modul PerlIO.pm
# use Perlio, 'UTF16';
# use Perlio::'UTF16';
use PerlIO;

sub konvertfile {

	my $in = $_[0];
	my $out = $_[1];

	open INFILE, "<:UTF16", "$in", or die "$in: $!";
	open OUTFILE, ">:UTF8", "$out";

	while (<INFILE>)
      {
	  $zeile = $_;
      print OUTFILE $zeile, "\n"
      }

	close INFILE;
	close OUTFILE;
	
}