my $datatxt = 'h:\data.txt';