Select Code to Download

# Prepare your statement at the start of your program
my $ST = $DB->prepare(q{
...
      $file_weather_type 
   );
}

while (....) {
   # Then for each reading, get the values
...
   # and write them to the table
   $ST->execute(@data_fields);
}