use Term::ReadKey

ReadMode('cbreak');
print "  --- DONE ---\n";
my $char = ReadKey(0);
ReadMode('normal')