#!/usr/bin/perl -w
$dateiname = $ARGV[0];
print $0;