repeat " - - - - - - - "

#!/usr/bin/perl

$width=80;

print "-"x $width, "\n";

save as p.pl; perl p.pl