$ perl test.pl 
syntax error at test.pl line 17, near "get_date;"
Execution of test.pl aborted due to compilation errors.

##</code><code>##

$ perl test.pl 
Hello World!

	 START ing script test.pl
SA - YEAR: 2019, MONTH: 5, DAY: 77

		 END ing script test.pl

##</code><code>##

#!/usr/bin/perl
use strict;
use warnings;

my $year = 2019;
my $month = 5;
my $day = 19;

print "Hello World!\n";
print"\n\t START ing script $0\n";

sub get_date {
my ($y, $m, $d) = (9999, 888, 77);
return($y, $m, $d);
} # end get_date

($year, $month, $day) = get_date;
print "SA - YEAR: $year, MONTH: $month, DAY: $day\n";
print "\n\t\t END ing script $0\n";