Undefined subroutine &Carp::longmess called at C:\PERL\lib/Carp.pm line 296.

##</code><code>##

open(PAGES, "<pages.txt") || die $!;
@pages = PAGES;
close(PAGES);

##</code><code>##

open(PAGES, "<pages.txt") || die $!;
@pages = <PAGES>;
close(PAGES);