Help for this page

Select Code to Download

Select or download this

use File::Basename;

...
  accept_file( $fn );  # ... or whatever
  return 1;
}