[HaBo]

package MySQL;
  use strict;
  use warnings;

  use DBI;


  sub new {

    my $class = shift;
    my $self = {};
    my %ARG = @_;

    (defined $ARG{'-username'} and my $USERNAME = $ARG{'-username'})
    or die "You have to set the username to use";

    (defined $ARG{'-password'} and my $PASSWORD = $ARG{'-password'})
    or die "You have to set the password to use";

    (defined $ARG{'-database'} and my $DATABASE = $ARG{'-database'})
    or die "You have to set the database to use";

    (defined $ARG{'-hostname'} and my $HOSTNAME = $ARG{'-hostname'})
    or die "You have to set the hostname to use";

    (defined $ARG{'-hostport'} and my $HOSTPORT = $ARG{'-hostport'})
    or die "You have to set the hostport to use";

    ($self->{DBH} = DBI -> connect("DBI:mysql:database=$DATABASE;host=$HOSTNAME;port=$HOSTPORT",$USERNAME,$PASSWORD))
    or die "Unable to connect to database";

    bless( $self, $class );
    return $self;

  }

[...]

  sub fetchrow_array {

    my $self = shift;

    my $CMD = $self->{DBH} -> prepare($_[0]);
    unless($DBI::err && $DBI::errstr){
      $CMD -> execute();
      unless($DBI::err||$DBI::errstr){
        my @RESULT;
        my $SUCCESS = 1;
        while(my $row = [ $CMD -> fetchrow_array ]){
          unless($DBI::err||$DBI::errstr){
            push(@RESULT, $row);
          }else{
            $SUCCESS = 0;
            last;
          }
        }
        if( $SUCCESS ){
          return @RESULT;
        }else{
          warn "MySQL error: [$DBI::err] '$DBI::errstr'";
          return 0
        }
      }else{
        warn "MySQL error: [$DBI::err] '$DBI::errstr'";
        return 0
      }
    }else{
      warn "MySQL error: [$DBI::err] '$DBI::errstr'";
      return 0
    }

  }

1;