Help for this page

Select Code to Download


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