Help for this page
while(my $line = <FP> ){ chomp ($line); ... my $temp = pop @dirlist; print "Skippping: $temp\n"; }