#!/usr/bin/perl
use strict;
use warnings;

my $path='nur/ein/test/';

print "Endung angeben: ";
my $endung=<STDIN>;
chomp($endung);

my @list=glob("$path*$endung");
map{ print "$_\n" }@list;