#!/usr/bin/perl $|=1; print while(<>);