Commit | Line | Data |
e9f5612c |
1 | #!/usr/bin/env perl |
2 | |
0e356307 |
3 | use strictures 2; |
4 | use autodie; |
5 | |
6 | my ($cmd, $file, @args) = @ARGV; |
7 | |
8 | my $input = do { local (@ARGV, $/) = $file; <> }; |
9 | |
10 | close STDOUT; |
11 | open STDOUT, '>', $file; |
12 | |
13 | open $out, '|-', $cmd, @args; |
14 | |
15 | print $out $input; |
16 | |
17 | close $out; |