sub _parse_output {
    my $self    = shift;
    my @output  = @_;
    my @return  = undef;

    foreach(@output) {
        next if (!defined)
        my @tmp = split /\r\n/;
        push @return, @tmp;
    }

    return \@return;
}

##</code><code>##

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

##</code><code>##

$VAR1 = [
          undef,
          'show system user current ',
          '',
          'Name: root;  Login Time: 03/27/2009 17:13:48;  Session No: 4367',
          'Name: root;  Login Time: 03/27/2009 17:30:55;  Session No: 4374',
          'Name: root;  Login Time: 03/27/2009 17:31:16;  Session No: 4376',
          'Name: root;  Login Time: 03/27/2009 17:31:38;  Session No: 4379',
          'Name: root;  Login Time: 03/27/2009 17:31:47;  Session No: 4380',
          'Name: root;  Login Time: 03/27/2009 17:31:57;  Session No: 4381',
          'Name: root;  Login Time: 03/27/2009 17:32:17;  Session No: 4382',
          'Name: root;  Login Time: 03/27/2009 17:32:27;  Session No: 4383',
          'Name: root;  Login Time: 03/27/2009 17:32:46;  Session No: 4385',
          'Name: root;  Login Time: 03/27/2009 17:34:01;  Session No: 4389',
          'Name: root;  Login Time: 03/27/2009 18:12:08;  Session No: 4397',
          'Name: root;  Login Time: 03/27/2009 21:45:32;  Session No: 4415',
          'Name: root;  Login Time: 03/27/2009 22:15:05;  Session No: 4423*',
          'Name: root;  Login Time: 03/27/2009 22:15:17;  Session No: 4424',
          ' '
        ];