[Date Prev][Date Next][Thread Prev][Thread Next] [Search] [Date Index] [Thread Index]

[MacPerl] Open Source MacPerl Poetry



#!usr/bin/perl -wl
# Only A MacPerl Poem
# by Brian McNett <brianmc@telebyte.net>
# Open Source Poetry (same license as Perl)
# rules for use:
#     must run on any Perl
#     must do stuff only on the Mac
#     else it's not a 'MacPerl' Poem

use strict; # very strictly speaking

my $answer; # for I will ask
my $os_of_choice = 'MacOS';

if ($^O eq 'MacOS') {
    eval 'use MacPerl';
    $answer = MacPerl::Answer ('Do you love your Mac?', 'Yes', 'No', 
'Maybe');
    if ($answer == '2') {
        die 'Oh, Bliss!'
    }
    elsif ($answer == '1') {
        die 'Such Agony!'
    }
    else { print 'Please make up your mind.' }
}
else { warn 'This is only a MacPerl Poem' }

END {print 'The poet bows'}

--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