#!perl -w
use strict;

sub my_print(@) {
    my @stuff = @_;
    print STDOUT time,": @stuff\n";
}

*print = *my_print;

print "Hello World!";