My initial guess is that you have a permissions problem and your CGI code is running with your Web server's permissions and the file cannot be opened with those permissions. Check your Web server's error log for the message.

Another thing you can do is send your fatal error message directly to the browser.

#!/apps/PERL5/bin/perl -wT
use CGI       qw/ :standard /;
use CGI::Carp qw/ fatalsToBrowser /; # remove for production
use strict;

print 
  header, 
  start_html,
  p( 'One' );

my $file = "/apps/servicelist/SLNamesDBMs/srv_name_new_to_represents";
dbmopen(%dbm_New_Eng, $file, 0644) or die "Cannot open ($file): $!";

print 
  p( 'Two' ),
  end_html;
[download]

Miscellaneous comments:

• The error variable is dollar bang ($!), not dollar one ($1).
• Many people may not recognize dbmopen as tie is usually used in place of it.
• You may also want to review my CGI course to understand a few tweaks I made to your code.

Cheers,
Ovid

Join the Perlmonks Setiathome Group or just click on the the link and check out our stats.