#!/usr/bin/perl


use strict;
use warnings;
use IO::File;

if(not @ARGV){
	print qq(use $0 file1 file2 ...\n);
}
else{
	my $fh = IO::File->new;
	$fh->open("fsum.txt", O_CREAT|O_RDWR|O_TRUNC) or die "Kann Datei 'fsum.txt' nicht anlegen, $!";
	while(<>){ $fh->print($_) }
	$fh->close;
}