#!/use/bin/perl

use strict ;
use DBI;

my $count = 0;

sub showtime () {
print "Starting loop \n";
while ( $count < 50 ) {

   $count++;
   print "Inside loop \n";
   my $dbh = DBI->connect("DBI:Oracle:host=localhost;port=1521;sid=syno",'xyx','xyx',{PrintError => 1, RaiseError => 1, ora_envhp => 0});
   my $cmd = "grep  VmRSS /proc/$$/status";
   print`$cmd`;
   sleep(1);
   $dbh->disconnect or warn "Disconnection failed: $DBI::errstr\n";

}
print "Ending script \n";
}

showtime