#!/usr/bin/perl
#
# Print a file backwards
#

open( FILE, "test.txt" )
  or die( "Can't open file file_to_reverse: $!" );

@lines = reverse <FILE>;
foreach $line (@lines) {
  $line = reverse $line;
  print $line;
}