$|++;
use Term::ReadLine;
my $term = new Term::ReadLine 'test';
while ($filename = $term->readline('>')) {
        print "checking for $filename...\n";
        last if (-e $filename);
        print "file not found, try again\n";
}
print "filename is ~~$filename~~";