sub coreprint { print @_; };
$printfunc = \&coreprint;