use package MakerDB;
  use strict;
  my $newObj;
  my $dbh;
  my $sth;
 

   $newObj = MakerDB->new();
   print "\n\tSuccessfully connected to DB\n\n" if $dbh=$newObj->connect();
  
# Insert a record 
   print "\nData Insertion Sucessful\n" if $newObj->save();

   $sth=$dbh->prepare("SELECT NAME, PASSWORD FROM userlog");
   $sth->execute();
   
   my $href;
   while ($href=$sth->fetchrow_hashref())  {
 	 print "\n";
	 print Dumper $href;
  }
 
    # Delete a record 
  	$newObj->delete();