Commit | Line | Data |
9bcd623d |
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; |