perl ....PL --promptme
if( $promptme ){
   ...prompt(...
}

# OR
if( $ENV{prompt_me_big_boy} ){
    ...prompt(...
}