for my $file (reverse @ARGV) {
   read_backward_and_print($file);
}

##</code><code>##

die "Usage: $0 FILENAMES\n" unless @ARGV >= 2;