Language Basics Perl

#!/usr/bin/perl -w
use strict;
@ARGV = qw/file1.txt file2.txt file3.txt/;
while (<>) {
    print;
}