#!/usr/bin/perl

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