#!/bin/perl -w

use strict;
use FileHandle;

FileHandle::autoflush STDOUT 1;