perl -le 'print ($! = ++$_) until $! = ~/^Unknown/'