#!/opt/perl5/bin/perl -w

use strict;

while($line=<> and $line ne ".\n"){
	push @lines,$line;
}
foreach(reverse @lines){ 
   	print;                 
}

##</code><code>##

Global symbol "$line" requires explicit package name at day1_test.1.pl line 5.
Global symbol "$line" requires explicit package name at day1_test.1.pl line 5.
Global symbol "@lines" requires explicit package name at day1_test.1.pl line 6.
Global symbol "$line" requires explicit package name at day1_test.1.pl line 6.
Global symbol "@lines" requires explicit package name at day1_test.1.pl line 8.
Execution of day1_test.1.pl aborted due to compilation errors.