Hi all,
Thanks for the quick replies!

Previous Post....

#!perl -w         # "-w" turns on all sorts of warnings about probable
+ errors. 
<br>
$dir = "r:\\\\40K\\";

sub listdirectory {
 local($dir);
 local(@lines);
 local($subdir);
 local($lvl_counter);
 local($list_length);

 $dir = $_[0];
 if(opendir (DIR, $dir))
 {
   @lines = readdir (DIR);
   closedir (DIR);
   $lvl_counter = 2;
   $list_length = ( scalar @lines );
   while ($lvl_counter < $list_length)
   {
      $subdir = $dir."\\".$lines[$lvl_counter];
      if(opendir (SUBDIR, $subdir))
      {
         closedir (SUBDIR);
         &listdirectory($subdir);
          
       }
      else
      {
    
    print "$subdir\n"; 
            
      }
      $lvl_counter++;
      }
   }
}

&listdirectory($dir);
[download]

OUTPUT:

read_import_test.pl

r:\\40K\\A400332S1_05.pdf
r:\\40K\\A400332S2_05.pdf
r:\\40K\\A400332S3_05.pdf
r:\\40K\\A400396S1_07.pdf
r:\\40K\\A400396S2_07.pdf
[download]

How Can I remove the PATH and get just the basename?
How can I get just *.pdf, if this directory had different files in it? (like *.tif files)
I tried using File::Spec::Win32 and CWD but had problems?
Can someone tell me when I "should" download mods and use them.
And when I can just use scripts without modules?
Please let me know if you need more details and if you can help.
TIA!

NEW POST:
The code works great on my machine with Perl 5.8...but, I am trying to run on a machine that has this version of perl! (This all runs in a "modified" DOS cmd window that sets all kinds of PATH's for the custom application)

C:\Perl\Weir_scripts>perl -c import_prod.pl Ambiguous use of eval => r
+esolved to "eval" => at ..\lib/re.pm line 81. Perl 5.006 required--th
+is is only version 5.00307, stopped at ..\lib/File/Basena me.pm line 
+142. BEGIN failed--compilation aborted at ..\lib/File/Basename.pm lin
+e 142. BEGIN failed--compilation aborted at import_prod.pl line 3. 
C:\Perl\Weir_scripts>perl -v This is perl, version 5.003_07
[download]

So, I installed 5.8 & now have "two" versions of perl on this machine. But, some consultants came in and installed this "old" version on the machine for use with their exisiting scripts!
Can I still upgrade without causing harm to the old stuff? I know I can remove the old paths in the enviroment section in Windoze. But, the application may not know where to look....sigh.

I need these ENV vars:

C:\Perl\Weir_scripts>set IMAN
IMAN_BIN=c:\ugs\tceng912\bin
IMAN_DATA=c:\ugs\imandata\testdata
IMAN_DB_CONNECT=infodba:tbwiabd@test
IMAN_DISABLE_FLASH=true
IMAN_HELP_FILE=c:\ugs\tceng912\web\htdocsimanhelp\imanhelp.hlp
IMAN_INCLUDE=c:\ugs\tceng912\include IMAN_INIT_DIR=C:\DOCUME~1\ADMINI~
+1.WIL\LOCALS~1\Temp\1
IMAN_LANGUAGE=c:\ugs\tceng912\lang IMAN_LIBRARY=c:\ugs\tceng912\lib IM
+AN_LOCALIZATION_DIR=en
IMAN_LOG=c:\ugs\imandata\testdata\log_wilmsntch5_test
IMAN_MSG_ROOT=c:\ugs\tceng912\lang\textserver
IMAN_PRINTER=lpr.exe
IMAN_ROOT=c:\ugs\tceng912
IMAN_SYS_UID_DIR=c:\ugs\tceng912\lang\vt100 IMAN_TMP_DIR=C:\DOCUME~1\A
+DMINI~1.WIL\LOCALS~1\Temp\1
IMAN_TRACEBACK=ON
IMAN_UG_DEFAULT_PART=c:\ugs\imandata\testdata\blank_english.prt
IMAN_USER_TOOLS=c:\ugs\tceng912\local\tools IMAN_XML_ENCODING=ISO-8859
+-1 

C:\Perl\Weir_scripts>set ORACLE
ORACLE_HOME=c:\ugs\tceng912
ORACLE_SERVER=wilmsntch5
ORACLE_SID=test
[download]

Here is where they store and access the perl binary:

C:\UGS\tceng912\bin>dir perl.exe
Volume in drive C has no label.
Volume Serial Number is 0CF2-5BB1
Directory of C:\UGS\tceng912\bin
07/02/1998 03:32 PM 87,040 perl.exe
1 File(s) 87,040 bytes 0 Dir(s) 12,339,765,248 bytes free 
C:\UGS\tceng912\bin>perl -v This is perl, version 5.003_07
[download]

What can I do? I am afraid that I can't just copy the new 5.8 Perl binary(perl.exe) to this dirsctory and go from there. Or can I? Are there depends, dll's or the like to worry about? Even application depends too?
Any help is greatly appreciated!! Thank-you.

20050207 Janitored by Corion as per the Writeup Formatting Tips