#!/usr/bin/perl
use warnings;
use strict;
dbmopen my %users,'users',664;
$users{mulander}->{email} = 'netprobe@gmail.com';
print "$users{mulander}->{email}\n";
dbmclose %users;