Hello,
What is error in this program?
===========================================
#!c:/sieperl/perl/5.8.0/bin/MSWin32-x86-perlio/perl
use CGI;
use warnings;
use strict;
my $page = new CGI;
if (DEBUG) {
open(DEBUGFILE, ">>debug.txt") || die;
$page->save(DEBUGFILE);
close(DEBUGFILE);
}
============================================
Error what I get is
Bareword "DEBUGFILE" not allowed while "strict subs" in use at
test.cgi line 11.
Thank you,
R. Kumaran
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
<http://learn.perl.org/> <http://learn.perl.org/first-response>
