add this: use CGI::Carp 'fatalsToBrowser';
> -----Original Message----- > From: Johnstone, Colin [mailto:Colin.Johnstone@;det.nsw.edu.au] > Sent: Wednesday, November 06, 2002 4:18 PM > To: '[EMAIL PROTECTED]' > Subject: die not working > > > Gidday all, > > I assume when using die in this format I should see the error message. > > #!/usr/bin/perl > > use CGI qw( :standard ); > > print header(); > $file1 = /web/schooled/www/news/subscribers_news1.txt > > open IN, "<$file1" or die("Cannot Open: $!"); > while( my $record = <IN> ){ > chomp $record; > @data = split( /\|/, $record); > $subscribers1{$data[0]} = $data[1]; > } > close IN; > > The program dies but no error prints on the screen. > > Where am I going wrong? > > Colin Johnstone > > -- > To unsubscribe, e-mail: [EMAIL PROTECTED] > For additional commands, e-mail: [EMAIL PROTECTED] > ---------------------------------------------------------------------------- -------------------- The views and opinions expressed in this email message are the sender's own, and do not necessarily represent the views and opinions of Summit Systems Inc. -- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]