Use print to show the message, use readline to get the answer. Wrap the whole program body in a loop to repeat it:

my $run = 'y';
while ($run =~ /^y/i) {
    ...

    print 'Do u want to continue? ';
    $run = readline;
}
[download]