Write a program to open a file for reading and print out its entire contents

Describe what the following Perl code does:

#!/usr/bin/perl
$numArgs = $#ARGV + 1;
print "$numArgs\n";
foreach $argnum (0 .. $#ARGV) {
print "$ARGV[$argnum]\n";
}