my $totmem = $OVERALL_MEM =~ /(\d+)/;
                                print "totmem is : $totmem";
                                my $freemem = $OVERALL_MEM_FREE =~ /(\d+)/;
                                print "freemem is : $freemem";
                                my $memdiff = $totmem - $freemem;
 print "Memdiff is :$memdiff KB ";