Assume interrupt stops pipes and we can continue. Subsequent signals will
then be reset so calculation can still be killed.
+$SIG{INT} = 'IGNORE'; # continue after assumed eof
+
my (@lines, @values);
while (readline) {
chomp;
my (@lines, @values);
while (readline) {
chomp;
+$SIG{INT} = 'DEFAULT';
+
sub show_lines {
my @order = sort { $b <=> $a } grep { length } @values;
sub show_lines {
my @order = sort { $b <=> $a } grep { length } @values;