maint/inplace

   1 use strictures 2;
   2 use autodie;
   3
   4 my ($cmd, $file, @args) = @ARGV;
   5
   6 my $input = do { local (@ARGV, $/) = $file; <> };
   7
   8 close STDOUT;
   9 open STDOUT, '>', $file;
  10
  11 open $out, '|-', $cmd, @args;
  12
  13 print $out $input;
  14
  15 close $out;