#!/usr/bin/perl

open(STDOUT,"> /tmp/t26.out");

##</code><code>##

#!/usr/bin/perl

close(STDOUT);
open(STDOUT,"> /tmp/t27.out");