Help for this page
my ($locked,undef,undef,undef,undef,$expire)=$ssh->get_user_info($logi +nid); my ($locked,$expire) = ($ssh->get_user_info($loginid))[0,5];
my ($min,$max) = (sort @something)[0,-1];