Select Code to Download

#!/usr/bin/perl

...
$sth->fetch();
print "<BR> User connected to MySql: $user_info";