Select Code to Download

#!/usr/bin/perl -w

use strict;
...
        print "$_\n";        # could be pushed onto an array, into a h
+ash
    }
}

my %subs = (
    mod_disk => \&mod_disk,
    mod_ram => \&mod_ram,
    mod_sticky_note => \&mod_sticky_note,
    mod_gum_wrapper => \&mod_gum_wrapper
);