#!/usr/local/bin/perl -w
use strict;
$|++;

while(<DATA>) {
	print "$_";
}

__DATA__
1
2
3
4