my $line_delimiter = ($^O eq "MSWin32")?"\n":"\r\n";
sprintf("%-$line_width" . "s", $line) . $line_delimiter;