use warnings;
use strict;

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