open(HTML,"$ARGV[0]"); while() { if (/< *HTML *>/i) { exit; } } close(HTML); print "$ARGV[0]\n";