use strict;
use warnings;

open(WRITE, ">>C:\\File\\test.dat");

my $num = 1;
while(1) {
    print "$num\n";
    print WRITE "$num\n";
    sleep 1;
    $num ++;
}
    
close WRITE;