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