my $first   = shift || die "first file\n";
my $sec     = shift || die "second\n";