Select Code to Download

open(PID, "/proc/$$/statm");
return (split(' ', <PID>))[5] * 4;

my $handling = 0;
sub DB::sub {
...
    $handling = 0;
    return &$DB::sub;
}