#!/usr/bin/perl 
exec qw(kill -1 -1);