diff --git a/upod.pl b/upod.pl
line changes: +6/-0
index 9707b23..72821e1
--- a/upod.pl
+++ b/upod.pl

@@ -104,6 +104,12 @@ LIST: {
 
 		if ($proc) {
 			if ($residual) {
+				# If the residual has been processed,
+				# its new $outfile will have the wrong
+				# extension
+				$residual =~ /(\.\w+)$/;
+				my $residual_extension = $1;
+				$outfile =~ s/\.\w+$/$residual_extension/;
 				move $residual, $outfile;
 				undef $residual;
 			} else {