--- add.pl	2000/04/14 06:30:31	1.1
+++ add.pl	2000/04/27 10:24:11	1.2
@@ -6,7 +6,14 @@
 
 open(KVAKE,">> zamjene.pl") || die "ne mogu otvoriti zamjene.pl";
 
-foreach $word (@ARGV) {
+my @words = @ARGV;
+while (<>) {
+	chomp;
+	push @words,"$_";
+}
+
+print "Dodajem ",$#words+1," riječi...\n";
+foreach $word (@words) {
 	print KVAKE "s/".replace($word)."/$word/g;\n";
 }