Help for this page

Select Code to Download

Select or download this

use warnings;
use strict;

open @$_
    for ([\*STDIN, '< input.txt'], [\*STDOUT, '> output.txt']);

Select or download this

open $_->[0], $_->[1], $_->[2]
    for ([\*STDIN, '< input.txt'], [\*STDOUT, '> output.txt']);