Help for this page

Select Code to Download


  1. or download this
    open(SENDMAIL, '|/usr/sbin/sendmail -oi -t')
   or (unlink ($outfile),
    diehtml("Can't fork for sendmail: $!\n"));
  2. or download this
    my $got_lock;
use Fcntl;   # to get constants for O_CREAT | O_EXCL | O_RDWR
...
    sleep 2;
}
diehtml("Lock error $!\n") unless $got_lock;