Article 6258 of comp.lang.perl:
Xref: feenix.metronet.com alt.sources:1949 comp.lang.perl:6258
Newsgroups: alt.sources,comp.lang.perl
Path: feenix.metronet.com!news.ecn.bgu.edu!usenet.ins.cwru.edu!howland.reston.ans.net!spool.mu.edu!sgiblab!a2i!dhesi
From: dhesi@rahul.net (Rahul Dhesi)
Subject: perl script that calculates conservation hint
Message-ID: <CE4LAt.I1x@rahul.net>
Followup-To: alt.sources.d,comp.lang.perl
Sender: news@rahul.net (Usenet News)
Nntp-Posting-Host: bolero
Organization: a2i network
Date: Wed, 29 Sep 1993 17:16:04 GMT
Lines: 26

Archive-name: perl-source/dhesi/conserve
Checksum:  142996984 (verify with 'brik')

#! /usr/bin/perl
#
# Rahul Dhesi <dhesi@rahul.net>
#
# This program prints a resource conservation hint based on
# arithmetic conversions.  It should be named 'conserve'.

if (&oct(31) == &dec(25)) {
   print <<EOF;
Oct 31 equals Dec 25.  Please conserve resources.
Celebrate Halloween and Christmas on the same day.
EOF
}

# return decimal value (no-op)
sub dec {
   return $_;
}

# return octal value
sub oct {
   eval "oct($_)";
}