#!/usr/bin/perl
#
# Author: Peter Keel <killer@discordia.ch>
# Test for and make a pid-file in perl

$pidfile="/var/run/callin.pid";

die if -f $pidfile;
open (PIDFILE, ">$pidfile");
    print PIDFILE $$;
close (PIDFILE);


# and delete it finally.
unlink $pidfile;