Help for this page

Select Code to Download

Select or download this
```
exit 0 if $key eq 'q';
```

Select or download this

#!/usr/bin/perl -slw

...
}
ReadMode(0);
print "\n\nYour super secret password is: $password";