Help for this page

Select Code to Download

Select or download this

unlink $file or
    do
...
        print "Error!";
        push( @list, $file );
    };