Select Code to Download

use My::DB::User;
my (%th,$tho);
...

# save the data to the database
$tho->saveData();

$tho = tie %th, 'My::DB::User', {-userid=>'25'};