Select Code to Download

#!/usr/bin/perl -w
use strict;
...
%hash=();
print "Check Memory usage NOW and press enter\n";
$chk=<>;