package Trk_dict;

use IO::File;
use strict;
use warnings;
use Carp;

sub new{
   my $class = shift;
   # weitere Argumente verbleiben in @_
   my $file = shift;
   return eval{
      my $self = bless{}, $class;
      my $fh = IO::File->new;
      $fh->open($file, O_RDONLY) or croak "IO-Err open File '$file': $!";
      binmode $fh, ':utf8';
      # usw.
      $fh->close;

      $self; # letzte Zeile im eval-BLock, das ist der return-Valü
   };
}