#!/usr/bin/perl 
#use strict; 
use warnings; 
use DBI; 
print "Program Starts\n"; 
print "Please Enter UserName:-"; 
chomp(my $UserName = <STDIN>); 
print "Please Enter Password:-"; 
chomp( $Password = <STDIN>); 
$dbh = DBI->connect('dbi:mysql:',$UserName,$Password) 
or die "Connection Error: $DBI::err\n"; 
print "Database Connected\n"; 
 $SQLQuery = "show databases"; 
 $sth = $dbh->prepare($SQLQuery); 
 $sth->execute or die "SQL Error: $DBI::errstr\n"; 
 while (@row = $sth->fetchrow_array) { 
 print "@row\n"; 
 } 
print "Program Ends\n";

print "@row\n";