1 #!/usr/bin/perl
2 
3 # Make a program that uses your library and the following code to print out a
4 # message, such as "Today is dip sen 15 2011", meaning that today is a Monday
5 # in August. You might use localtime:
6 #
7 # my($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime;
8 #
9 # Hint: The year and month numbers returned by localtime may not be what
10 # you'd expect, so you need to check the documentation.
11 
12 use v5.24;
13 use warnings;
14 use strict;
15 use utf8;
16 
17 require './Oogaboogoo.pm';
18 
19 my($sec, $min, $hour, $mday, $mon, $year, $wday) = localtime;
20 printf("Today is %s %s %d %d\n", Oogaboogoo::number_to_day_name($wday),Oogaboogoo::number_to_month_name($mon),$mday,$year+1900);