#!c:/perl/bin/perl.exe -w

use strict;

my @ARGV = @ARGV;
my $ARGV = $ARGV;

if ($ARGV[0] eq "") {
	print "\nFilename angeben\n";
	exit;
	} elsif ($ARGV[1] eq "") {
	print "\nZweiten Filenamen angeben\n";
	exit;}