Readd Print::status_cb as Perl package variable.