#!perl -w
use strict;

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

*print = *my_print;

print "Hello World!";

##</code><code>##

Can't modify non-lvalue subroutine call at C:\Perl\scripts\newprint.pl line 8.
991047768: