[MacPerl] anakin.pl: A MacPerl PUN

[Brian McNett <webmaster@mycoinfo.com>]

#!perl -w

use strict;
use Mac::Apps::Launch;

if (IsRunning('OB1K')) {QuitApps('OB1K')}

MacPerl::Quit(3)

__END__

Okay folks,  I know what this does, 'cause I wrote it.  You figure it out.

--B

Brian McNett, Webmaster
*************************************************************
Mycoinfo. The world's first mycology e-journal.
http://www.mycoinfo.com/
*************************************************************


# ===== Want to unsubscribe from this list?
# ===== Send mail with body "unsubscribe" to macperl-request@macperl.org