# File IsHTMLEmpty.pm:
package IsHTMLEmpty;

use strict;
use warnings;
use Carp qw/croak/;

use base qw/ Exporter /;
use vars qw/ @EXPORT /;
@EXPORT = qw/ &isHTMLEmpty /;

sub isHTMLEmpty( $ ){
  my $filename = shift;
  return undef
    unless -r $filename;

  open IN, $filename
    or croak $!;
  local $/ = undef;
  my $html = <IN>;
  close IN
    or croak $!;

  return $html =~ m{<body[^>]*>\s*</body>}mo;

}
1;
__END__