open my $html, ">", /srv/www/mystatus.htm;
select $html;