##
#!/opt/perl5/bin/perl -w
use strict;
#my $line;
my @lines;
while(my $line=<> and $line ne ".\n"){
push @lines,$line;
}
foreach(reverse @lines){
print;
}
##
##
Global symbol "$line" requires explicit package name at day1_test.1.pl line 8.
Value of construct can be "0"; test with defined() at day1_test.1.pl line 8.
Execution of day1_test.1.pl aborted due to compilation errors.