my $doc = $word->Documents->Open($oldfile) or die_nice( "Failed to open $oldfie " . $word->LastError() );

...

sub die_nice { print "Content-type: text/html\n\n" . shift }