What does the following PERL snippet do? Explain the result.?

[Jonathan J]

What does the following PERL snippet do? Explain the result.

open (BLAH, "$ARGV[0]");
while (<BLAH>)
{
tr /a-z/A-Z/;
print $_;
}