Select Code to Download

#!/usr/bin/perl -w
use strict;
...
];

menu $mainmenu;

menu [
    'Main menu',
...
    ],
    'Exit'       => undef,
];