#starting from the open
print header;
print start_html('A Simple Example');
my $i=0;
while(<INPUT>)
{
  $i++;
  last if $i>30;
  print;
}
close(INPUT);
print end_html;

##</code><code>##

print header('text/plain');
#the while here
#no start or end html prints