perl -e 'map{sleep print "$_\n";$SIG{QUIT}='IGNORE'}(1..10)'