>perl -wMstrict -le
"while (my $endlessly = shift @{[ qw(but why?) ]}) {
   print qq{$endlessly...};
   sleep 1;
   }
"
but...
but...
but...
Terminating on signal SIGINT(2)