open(my $fh,">drive1.txt) or die "Error opening file: $!";