Listing 1 Current.pm

=1=    package Acme::Current;
=2=    use strict;
=3=    
=4=    use vars qw($VERSION);
=5=    
=6=    use vars qw($YEAR $MONTH $DAY);
=7=    
=8=    $VERSION = sprintf "%04d%02d%02d", $YEAR = 2003, $MONTH = 7, $DAY = 20;
=9=    
=10=    1;
=11=    
=12=    __END__
=13=    
=14=    =head1 NAME
=15=    
=16=    Acme::Current - Determine current year, month, day (GMT)
=17=    
=18=    =head1 SYNOPSIS
=19=    
=20=      use Acme::Current;
=21=      printf "It's now %04d/%02d/%02d.\n",
=22=        $Acme::Current::YEAR,
=23=        $Acme::Current::MONTH,
=24=        $Acme::Current::DAY;
=25=      if ($Acme::Current::MONTH == 12 and $Acme::Current::DAY == 25) {
=26=        print "Merry Christmas!\n";
=27=      }
=28=    ..... REST OMITTED .....