8 lines
122 B
Perl
Executable file
8 lines
122 B
Perl
Executable file
#!/usr/bin/perl
|
|
open(OUTPIPE, "$ARGV[0]") || die;
|
|
while(<STDIN>)
|
|
{
|
|
print STDOUT $_;
|
|
print OUTPIPE $_;
|
|
}
|
|
close(OUTPIPE);
|