use Term::Prompt;
use strict;
use warnings;

my $dirname;
{
    $dirname = prompt('s', 'Enter a dir name',    
                      'e.g. regression-EODDAY1', '',    
                      sub {$_[0] =~ /^[A-Za-z0-9_-]+$/ && -d $_[0]});
    redo unless prompt('y', 'That dir already exists, do you wish to ' .      
                            'overwrite the existing contents ?', '[y/n]', 'n');
}

# 
# Rest of program here.
#