#!/usr/bin/perl -w
# prkl.pl - "Perkeleen Peelo"
# Tidies up the mess Netscape leaves after it
# Based on naula's blasphemous script
# (c) WWWWolf 31.01.2000/BiPwr

use strict;
use vars qw($sig $program);

foreach $sig (qw(-TERM -USR2 -HUP -KILL)) {
  foreach $program (qw(netscape netscape-remote navigator communicator
                       navigator-smotif.real navigator-dmotif.real
                       navigator-smotif navigator-dmotif
                       communicator-smotif.real communicator-dmotif.real
                       communicator-smotif communicator-dmotif
                       netscape-navigator netscape-communicator)) {
    sleep(1);
    print "killall $sig $program\n"; system("killall",$sig,$program);
  }
}
unlink((getpwuid($<))[7]."/.netscape/lock");