my $outname = '/usr/anil/scripts/myhtml.html'; 
open HTML, '>', $outname
  or die "Couldn't create '$outname': $!";

##</code><code>##

#!/usr/bin/perl

use strict;
use warnings;