use strict;
use warnings;

sub tprint {
	my $msg = join $,//'' ,@_;
	my $tstamp = localtime()." ";
	$msg =~ s/^/$tstamp/gm;
	print $msg;
}

tprint "something\nelse\n";