Has someone allready wrote the code parser Embeded SQL -> Perl::MySQL ?

I need to transfer code like this:

EXEC SQL SET DATABASE DB1 = "example:localhost:user:passw";
EXEC SQL CONNECT DB1;
EXEC SQL BEGIN DECLARE SECTION;
     BASED ON table1.id my_id;
EXEC SQL END DECLARE SECTION;

MYSQL_RES *result;
 EXEC SQL SELECT id INTO :my_id FROM name_db;
 result = mysql_store_result(&mysql);

 if(result != NULL)
 {
  numofrows = mysql_num_rows (result);
  printf ("--\n", numofrows);
  }
  else {printf ("--\n"); break;}
 mysql_free_result (result);
 mysql_close (&mysql);
    return 0;
}
[download]

2006-01-17 Retitled by g0n, as per Monastery guidelines
Original title: 'Code convertion from embedded sql to Perl::MySQL'