use strict;
use warnings;

use DBI;
use File::Path;

my $base_directory   = 'c:/Documents and Settings/user/Files';

my $db               = DBI->connect( "dbi:Oracle:*****", "*****", "******" )
                           || die( $DBI::errstr . "\n" );

$db->{AutoCommit}    = 0;
$db->{RaiseError}    = 1;
$db->{ora_check_sql} = 0;
$db->{RowCacheSize}  = 16;

my $SEL              = "SELECT  number,id,status FROM info where status in ('I,D')";
my $sth              = $db->prepare($SEL);
$sth->execute();

while ( my $row = $sth->fetchrow_hashref() ) {

   my $folder    = $row->{number};    # folder
   my $subfolder = $row->{Id};        # subfolder

   my $directory = "$base_directory/$folder/$subfolder";
   
   if (-d $directory) {
   
      if (remove_tree($directory)) {
      
         print "DIRECTORY HAS BEEN DELETED:: [$directory]\n";
      
      } else {
      
         print "[Error] UNABLE TO DELETE DIRECTORY: [$directory]\n";
      
      }
   
   }
   
}

...