#!/usr/bin/perl
$datei = $ARGV[0];
open(Sesam, "<$datei") or die "\n";
@datei=<Sesam>;
foreach(@datei){
print $_;
}
close (Sesam);