open(FH,">Sample");
select(FH);
$|=1;
while(1) {
print FH "This is for testing\n";
sleep 1;
}