#!/usr/bin/perl
use Fcntl ':flock';
open (MAILBOX, ">>/var/mail/$ENV{'USER'}")
    or die "Kann Mailbox nicht schreiben: $!";
flock(MAILBOX, LOCK_EX);
print "Jetzt kann ich eine Mail löschen.\n";
flock(MAILBOX, LOCK_UN);
close MAILBOX;