use DB_File;

my %users;
my $file = "foo";
tie %users,  'DB_File', $file, O_CREAT|O_RDWR;

$users{'User1'} = <<HTML;
<center>
<h1>Hello!</h1>
</center>
HTML

my $html = $users{'User1'};
print $html;