#! /usr/bin/perl

use strict;
use warnings;
use diagnostics;

print "########## memory usage of perl start of execution ###########\n";
system("tasklist | grep perl");
print "##############################################################\n";

for(my $iter = 0; $iter < 5000; $iter++){
        system("adb devices");	
	print "iteration Completed : $iter\n";
}

print "########## memory usage of perl end of  execution ###########\n";
system("tasklist | grep perl");
print "##############################################################\n";


##</code><code>##

########## memory usage of perl start of execution ###########
perl.exe   14456 RDP-Tcp#0                  1      9,580 K
##############################################################

########## memory usage of perl end of  execution ###########
perl.exe   14456 RDP-Tcp#0                  1     68,420 K
##############################################################