If you want padding,

$line .= ' ' x (60-length($line));
[download]

just before you write it out should do the trick.