Help for this page
#!/usr/bin/perl -w use warnings; ... sleep 2; } untie $db;
#!/usr/bin/perl -w use warnings; ... } untie $db;