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; }