use Path::Class;

my $full_path = Path::Class::File->new( $directory, $entry )->absolute;
open my $fh, '<', $full_path->stringify or die $!;
# weiter im Text