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

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