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