use strict;
use warnings;
use 5.010;

 
 my ($filename, $name1, $dome1, $name2, $dome2, $name3, $dome3, $name4, $dome4, $name5, $dome5, $name6, $dome6)=@ARGV;

 open(my $fh, '>>', $filename) or die "Could not open file '$filename' $!";

say $fh "IGS14 fiducial sites\n--------------------------------------------------------------------------------\n\nStation name\n****************\n$name1 $dome1\n$name2 $dome2\n$name3 $dome3\n$name4 $dome4\n$name5 $dome5\n$name6 $dome6 ";
			
close $fh;	

say 'done';