Help for this page

Select Code to Download

Select or download this

my $last_file = '';
while (<>) {
    print "$ARGV\n" if $ARGV ne $last_file;
    $last_file = $ARGV;

Select or download this

some_file_name
another_file_name
Use of uninitialized value in ...
different_file_name
Use of uninitialized value in ...