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

sub print_timestamp {
    local *_get_formatted_time = sub {
        return $_[0] . uc scalar localtime;
    };
    return _get_formatted_time(@_);
}

say print_timestamp('The time was: ');

__END__

$ perl test.pl
The time was: FRI AUG 25 15:18:08 2017

##</code><code>##

#!/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

##</code><code>##

sub a {
    sub b{
    }
}

##</code><code>##

sub a {
}
sub b{
}