perl -we "print '-' x 80; <STDIN>;'