Select Code to Download

sub _parse_output {
    my $self    = shift;
...

    return \@return;
}

$active_sessions = grep (/Session No:/, @$output);

$VAR1 = [
          undef,
...
          'Name: root;  Login Time: 03/27/2009 22:15:17;  Session No: 
+4424',
          ' '
        ];