use IO::Prompt::Hooked;

my $result = prompt (
  message  => 'Shall we continue? (yes/no)',
  default  => 'yes',
  validate => qr/^(?:yes|no)$/i,
  error    => "The only two options are 'yes' or 'no'.  Try again.\n",
);

if ( $result =~ m/^no$/i ) {
  print "Ok, we're done.\n";
  exit( 0 );
}

print "Great... let's continue...\n";
[download]

I'm wondering, if you're having trouble taking user input and branching your logic, who wrote the part of your script that's working great?

Which part of this task are you stuck on? Can you read the user's input? Can you store it? Can you compare it to your desired inputs? Can you perform a logical branch on the basis of the comparison?

What have you tried?

I have a perl script which is parsing some text from some text file and creating a new file in which all the values are in tabulated form. Script is running fine and smooth

Now, What I want is to interrupt(I dont know if it's a right word) script in terminal, So i can have two options like Yes or No.

<I am stuck at this part. I don't know how to make my script behaves like this.

Let's assume therefore that your problem is that you do not know how to perform a read from standard input. Take a look at this:

my $a = <>;

Do you know what this does? Are you familiar with the diamond operator?

Fellow monks, please, for a simple question, give a simple answer.

Monk freekngeek, what you want to do is to read from the command-line from your script. This is part of the input/output chapter. The output part, you probably know already. When you use the print function, you use the output.

To use the input and output in Perl, you need what is called "FileHandles". The print function uses a default FileHandle named "STDOUT" (Standard Output).

You want to read from the STDIN (Standard Input). How to do that? Try this:

It will give the same result as Monk hippo mentioned above. In his example, the STDIN FileHandle was implied, the same way the STDOUT FileHandle is implied when you use the print function:

Is the same as:

Of course, you can use CPAN modules to achieve reading from the command-line, like Monk davido mentioned above, but I suggest before you venture in that direction, that you learn the basics of Input/Output in Perl. Search for "FileHandle" and "STDIN" and you shall find your answers.