$ perl -e 'print "Ovid",print"Ovid"' OvidOvid1