/usr/bin/perl -e 'print "perl\n" for (1..10000)' | /usr/bin/perl -e 'chomp($_) && print "$_ oder ".ucfirst($_)."\n" while(<STDIN>);'