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