Select Code to Download

#!/usr/bin/perl
use DBD::mysql;
...
use Utils::DBClass;
$object = new DBClass( "perltest", "localhost", 3306,"root", "sierra")
+;
$object -> select_db ("select * from samples");

package DBClass;
use DBI;
...
      print "@row \n";
    }
}