Select Code to Download

#!/usr/bin/perl 
use strict ;
...
    $sth->execute(@f);
  }
}

sub init {
  $dbh-> do('CREATE DATABASE IF NOT EXISTS db123 
...
  </osm>