#!/usr/bin/perl
use MongoDB;
use JSON;
use Data::Dumper;
my $conn = MongoDB::Connection->new(
      host => 'xxxxxxx', 
      port => 27017, 
      username=>'xxxx',
      password=>'xxxx',
      db_name => 'prav'
  );
  my $database   = $conn->get_database( 'prav' );
  my $collection = $database->get_collection( 'studenttgggggg');
  my $err = $database->last_error();
    print Dumper $err;
  my $data       = $collection->find({"id"=>"stu_7"});
  my $err = $collection->last_error();
  # print %$err;
   print Dumper $err;
    #print Dumper $data;
while (my $doc = $data->next) {
       my @qual=@{$doc->{'qualifications'}};
       print @qual;
       print "\n";
    }