Help for this page

Select Code to Download

Select or download this

use File::Basename;

# in your loop...

            print basename($file);