in reply to peek - output a one-line preview of stdin
my $wide = 79;
my %options =
( 'wide|width=i' => \$wide,
'keep' => \$keep
GetOptions(%options) or die;
$_ = substr($_ . $pad, 0, $wide);
Results (294 votes). Check out past polls.