Select Code to Download

#!perl
use strict;
...
        $sth->execute($id, $name, $age, $add) or die $DBI::errstr;
    }
}