use strict;
use warnings;
use FileHandle;

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

close(FH);