#!/usr/bin/perl

use strict;
use warnings;
use Encode::Guess;

my $file = "c:\deine\datei";
my $data;

# Datei öffnen
open(FILE, '<', $file)
  or die "Fehler beim Öffnen von $file : $!\n";

# Zeilen-Trenner quasi auf undef setzen, damit kannst du die komplette Datei in einen Skalar lesen - siehe perldoc perlvar unter INPUT_RECORD_SEPARATOR
{
  local $/;
  $data = <FILE>;
}

close(FILE);

# Das Modul die Kodierung erraten lassen, wobei du sagst, dass du nur UTF-8 haben willst.
my $decoder = guess_encoding($data, qw/utf8/);

# Falls Encode::Guess eine Referenz zurückgibt, scheint es sich um UTF-8 zu handeln
if (ref $decoder) {
  print "Datei scheint in UTF-8 vorzuliegen\n";
}
else {
  print "Datei scheint kein UTF-8 zu sein.\n";
}

use warnings;