scripts: Remove redundant STDOUT from print calls

Addresses InputOutput::RequireBracedFileHandleWithPrint.

Warned-by: perlcritic

scripts/Dpkg/Source/Package/V2.pm

@@ -652,7 +652,7 @@ sub do_commit {
     }
     while (_is_bad_patch_name($dir, $patch_name)) {
         # Ask the patch name interactively
-        print STDOUT _g('Enter the desired patch name: ');
+        print _g('Enter the desired patch name: ');
         chomp($patch_name = <STDIN>);
         $patch_name =~ s/\s+/-/g;
         $patch_name =~ s/\///g;

scripts/dpkg-scanpackages.pl

@@ -258,7 +258,7 @@ for my $p (sort keys %packages) {
         push(@missingover,$p);
     }
     for my $package (@{$packages{$p}}) {
-	 print(STDOUT "$package\n") or syserr(_g('failed when writing stdout'));
+         print("$package\n") or syserr(_g('failed when writing stdout'));
          $records_written++;
     }
 }