perl sql

use strict;
use DBI;

my $dbh = DBI->connect("dbi:mysql:database=bhu");
my $obj = $dbh->table_info;

get_row_data();

$dbh->disconnect || die("failed $dbh->disconnect");

exit 0;

sub get_row_data {
    my $select = join( " ", @ARGV );
    print "running $select\n";
    $dbh->{LongReadLen} = 512 * 1024;
    $dbh->{LongTruncOk} = 1;
    my $sql = $dbh->prepare($select);
    $sql->execute || die "$select failed";
    my $i = 0;
    while ( my @row = $sql->fetchrow_array ) {
        $i++;
        foreach my $_row (@row) {
            if ( !defined $_row ) {
                $_row = "null";
            }
        }
        my $row = "";
        $row = join( ",", @row );

        #chomp($row);
        #$row =~ s/\n//mg;
        #$row =~ s/\r//mg;
        #$row =~ s/\t//mg;
        print $row, "\n";
    }
}