#!/usr/bin/perl
use strict;
use warnings;
use feature 'say';

print_timestamp('nigh');
print_timestamp( get_formatted_time() );

sub print_timestamp { say 'The time was ' . shift() }
sub get_formatted_time { return uc scalar localtime }

__END__

$ perl test.pl
The time was nigh
The time was FRI AUG 25 15:20:10 2017