Help for this page

Select Code to Download


  1. or download this
    open(MYFILE, ">>$myfile") || die "Can't append to $myfile, Perl says $
    +!";
    flock(MYFILE, 2) || die "Can't lock $myfile, Perl says $!";
    print MYFILE "Hello World!\n";
    close MYFILE;
    
  2. or download this
    for ($i=0; defined($i); $i++){
        print "Help! I'm trapped in an infinite loop\n";
    }
    
  3. or download this
    while (1) {
       print "foo";
    ...
    for (;;) {
       print "foo"
    }