Select Code to Download

use ExtUtils::MakeMaker qw' prompt ';
...
...
   $username =~ s/\s+$//;
   ...
}

if( prompt('Are you new?', 'n') =~ /y/ ){
   CreateNewUser();
} else {
   ActivateOldUser();
}