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

##</code><code>##

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

##</code><code>##

print "-" x 80;
print "2\n";