Select Code to Download

#!/usr/bin/perl
use strict;
...
while(  $file= $f->next()  ) {
    print "$file\n";
}

package List; # Terrible name
use strict;
...
}

1;