my $filename = 'birthday.db';

# ... later ...

open IN, $filename || die "Cannot read '$filename': $!\n";
print <IN>;
close IN;