Help for this page
#!/usr/bin/perl ... my $timeout = 10; ...
#!/usr/bin/perl -slw ... " exit\n", " logout\n"; }