i ran your revised code it gave me these errors????
C:\Perl>perl -cw create.pl
[Wed Aug 22 11:46:32 2001] (eval 1): Array found where operator expect
+ed at (eva
l 1) line 1, at end of line
[Wed Aug 22 11:46:32 2001] (eval 1): (Do you need to predeclare Car
+p::longmes
s?)
[Wed Aug 22 11:46:32 2001] (eval 1): Array found where operator expect
+ed at (eva
l 1) line 2, at end of line
[Wed Aug 22 11:46:32 2001] (eval 1): (Do you need to predeclare Car
+p::shortme
ss?)
[Wed Aug 22 11:46:32 2001] (eval 1): Array found where operator expect
+ed at (eva
l 1) line 3, at end of line
[Wed Aug 22 11:46:32 2001] (eval 1): (Do you need to predeclare Car
+p::shortme
ss?)
[Wed Aug 22 11:46:32 2001] (eval 1): Array found where operator expect
+ed at (eva
l 1) line 4, at end of line
[Wed Aug 22 11:46:32 2001] (eval 1): (Do you need to predeclare Car
+p::longmes
s?)
Undefined subroutine &Carp::longmess called at C:\PERL\lib/Carp.pm lin
+e 296.