my $wide = 79;
my $keep=0;
my %options =
    ( 'wide|width=i' => \$wide,
      'keep' => \$keep
      );

GetOptions(%options) or die;

##</code><code>##

while (<>)
{
    chomp;
    tr{\n\t}{\r };
    $_ = substr($_ . $pad, 0, $wide);
    print "$_\r";
}
if(!$keep)
        {print "$pad\r";}
else
        {print "\n";}
exit(0);