sysopen my $fh, '/var/lock/mydaemon', O_EXCL | O_RDWR
    or die "$0 is already running";