Help for this page

Select Code to Download


  1. or download this
    C:\PERL\bin>perl -le"$SIG{INT}=sub{print 'cleanup';exit 0}; while(1){s
+leep 1};  END{print 'goodbye'}"
# here I hit Control-C
cleanup
goodbye
  2. or download this
    #!/usr/bin/perl
use strict;
...
}else{
    print "finished infinite loop, halting problem next\n"
}