if ( open(PM, ">$newname") ) {
print PM <<"END";
package $newpack;
-require 5.6.0;
+use 5.006;
require Exporter;
$carp
\@ISA = qw(Exporter);
__END__
AUTOLOAD
BEGIN
+CHECK
CORE
DESTROY
END
INIT
-CHECK
+UNITCHECK
abs
accept
alarm
qq
qr
quotemeta
-qu
qw
qx
rand