#!/bin/Perl

if (@ARGV < 4) {
	print ("you need to provide 4 arguments\n\t4th argument is file to parse");
	exit;
	
}



openfile(@ARGV);


sub openfile {
	
	open FILE1,">$_[0]" || die "could not open $_[0]";
	open FILE2,">$_[1]" || die "could not open $_[1]";
	open FILE3,">$_[2]" || die "could not open $_[2]";
	open FILE4,"$_[3]" || die "could not open $_[3]";
}


while (my $line = <FILE4>) {
	
print $line;	
}