I don't think you can. Not directly, at least. Look up the prototype function in perlfunc. (BTW, I note that this is the first time I've ever had call to use it.) It returns undef for CORE::print, meaning that it "does not really behave like a Perl function".
However, you might want to try making a GLOBAL::print and a IO::Handle::print funtion.
IIRC, there's some magic that makes bareword filehandles act like IO::Handle objects.
TACCTGTTTGAGTGTAACAATCATTCGCTCGGTGTATCCATCTTTG
ACACAATGAATCTTTGACTCGAACAATCGTTCGGTCGCTCCGACGC