open my $fh, '>', 'data.txt' or die "Can't open: $!";