goerz

#!/usr/bin/perl -w
use strict;
# This program adds a function 'printself' to the end of an existing
# perl program, which prints out the entire program's listing. This
# will make the existing program to be a Quine

# (c)2006 Michael Goerz
# michaelgoerz.net

#     This program is free software; you can redistribute it and/or modify

goerz

#!/usr/bin/perl -w
use strict;
use utf8;
############################################################################
#    Copyright (C) 2008 by Michael Goerz                                   #
#    http://www.physik.fu-berlin.de/~mgoerz                                #
#                                                                          #
#    This program is free software; you can redistribute it and/or modify  #
#    it under the terms of the GNU General Public License as published by  #
#    the Free Software Foundation; either version 3 of the License, or     #

goerz

#!/usr/bin/perl
use strict;
# Author: Michael Goerz <[email protected]>
# Make sure that $kextfile is owned by root!

my $app      = '/Applications/InsomniaX.app';
my $kextfile = "$app/Contents/Resources/Insomnia_r6.kext/";

sub close_insomnia_x{
    my $ps_line = `ps -A | grep $app | grep -v grep`;