#!/usr/bin/env perl -w


$pfad="./ligen";




@fileliste = glob("$pfad/*.txt");
	foreach $filename (@fileliste) {
	print $filename;
		
		}