DBI, connect(), prepare(), execute(), fetchrow_array()

#!/usr/bin/perl 
use strict; 
use DBI; 

my $dbh = DBI->connect("dbi:mysql:dbname", 'user','passwd', '') 
or die "can't connect!\n"; 
my $sql = qq/show variables/; 
my $sth = $dbh->prepare($sql); 
$sth->execute(); 

while(my @array=$sth->fetchrow_array()) 
{ 
   printf("%-35s", $_) foreach(@array); 
   print "\n"; 
} 
$dbh -> disconnect(); 
exit 0;