Select Code to Download

mkdir("$dir", 0777) || die "Could not mkdir \"$dir\": $!\n";

($menu eq 1) && addwant();
($menu eq 2) && addhave();

my @actions = qw( \&addwant \&addhave ); # and so forth

# get input
...
    print "\n\n\nGoodbye!\n";
    exit;
}