i dont mean to print the li only as u see my script is to print the whole li inside li there is div as u see example

when u run the script u will see the output

i just want to output the whole

i want to get

<li>
#Foo
with all div and span inside here
</li>

<li>
#bar
with all div and span inside here
</li>

<li>
#moo
with all div and span inside here
</li>

[download]
use CGI::Pretty ":standard";
@names = ('Foo', 'Bar', 'Moo');
my $str = join(" ",@names);

$data =  li (
           div({"class='inforno'"}, "<img src='inforno>'"),
           div({"class='inforno'"}, "<a href='#' class='inforno'>$str<
+/a>"),
           span({"class='inforno'"},  "<a href='#' class='inforno'>
                   Edit user </a>")
          );
     
     print "$data\n";
[download]