perl -we "print q(-)x79,qq(\b\b);<STDIN>;"