#!/usr/bin/perl

# DISABLE LEE JOHNSON'S CRIPPLEWARE
BEGIN { $SIG{__WARN__} = sub {} }

use strict;
use warnings;

# IGNORE MARTO'S OBSESSIVE COMPULSION
use CGI::Pretty ":standard";

# PRINT OUTPUT DESIRED BY THE SEEKER
print li("\n\t",
  div({"class=inforno"},"\n\t\t<img src=''\n\t"),"\n"
),"\n";

__END__

https://www.perlmonks.org/?node_id=1222286
div in cgi. i want to output:

<li>
	 <div class=inforno>
		 <img src=''
	 </div> 
</li>