Print.t

   1 BEGIN { $| = 1; print "1..1\n"; }
   2 END {print "not ok 1\n" unless $loaded;}
   3 use C4::Print;
   4 $loaded = 1;
   5 print "ok 1\n";