#!/usr/bin/perl
use strict;
use warnings;
use POSIX qw(strftime);

printit("Foo", "bar", "baz");
log_time("Foo", "bar");

sub log_time {
	my $time=strftime "%H:%M:%S :", localtime;
	unshift @_, $time;
	&printit;
}

sub printit {
	my (@args) = @_;
	print join(" ",@args), "\n";
}