close $_ for qw/$IN1 $IN2 $OUT1 $OUT2/;