use strict;
use warnings;
Main( @ARGV );
exit( 0 );
sub Main {
    my $default = 0;
    my $num = Prompt( "Enter num flags:", $default );
    if( $num eq 'purple ){
        PurpleFlags( $num );
    } else {
        BananaFlags( $num );
    }
}
sub PurpleFlags {
   my( $num ) = @_;
   ...
}
sub BananaFlags {
    my( $num ) = @_;
    ...;
}
sub Prompt {
    ExtUtils::MakeMaker::prompt( @_ );
}