#!/usr/bin/perl
use strict;
use warnings;

require List;

my $f= List->new( @ARGV );

my $file;
while(  $file= $f->next()  ) {
    print "$file\n";
}