use strict;
use warnings;
use subs qw(print);
sub print {CORE::print "OK, $_[0]\n";}
print "bla";