my $out = shift or die "No output name";
open(IN, $in) or die "Cannot open input $in: $!";
open(OUT, "> $out") or die "Cannot create $out: $!";
+binmode OUT;
print OUT <<'EOS';
# AUTOMATICALLY GENERATED BY regops.perl
package Imager::Regops;
=head1 NAME
-Imager::Regops - generated information about the register based VM
+Imager::Regops - generated information about the register based virtual machine
=head1 SYNOPSIS
=head1 DESCRIPTION
-This module is generated automatically from regmach.h so we don't need to
+This module is generated automatically from F<regmach.h> so we don't need to
maintain the same information in at least one extra place.
At least that's the idea.