my $info = sub { 
        open (HTD, "$htpasswd") || die "$htpasswd: $!"; 
	  print $_ while (<HTD>); 
	close (HTD); 
    }; 
 
    open (MAN, "main.html") || die "main.html: $!"; 
      while (<MAN>) { 
        $_ =~ s/\[dir\]/$direct/g; 
	$_ =~ s/\[info\]/$info/g; 
	print $_; 
      } 
    close (MAN);

my $info; 
{ 
  local (*FILE, $/); 
  open FILE, $filename or die "can't read $filename: $!"; 
  $info = <FILE>; 
}