Peggy,
> ($CGIPath) = ($0 =~ m#^(.*\\)#);
Try this instead:
use FindBin;
$CGIPath = $FindBin::Bin;
$FindBin::Bin is set to the full path of the currently executing script.
Sincerely,
Tamara L. Cravit, Partner
--
Taylored Software
Custom Software Development for Your Enterprise
PO Box 1228, Buellton CA 93427
Phone: (805) 686-9270
E-mail: [EMAIL PROTECTED]
Web: http://www.taylored-software.com/
_______________________________________________
Perl-Win32-Web mailing list
[EMAIL PROTECTED]
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web
