Expanding on philcrow's last paragraph I just encapsulated your code in routines: 

#!/usr/bin/perl -w
use strict;
use Win32::OLE; #or ParseExcel or whatever

my $DEBUG = 1;

#
# Subroutines
#


sub get_cell_val() {
    my ($src_sheet, $src_row, $src_col) = @_;
    if (defined $src_sheet->{Cells}[$src_row][$src_col]) {
        $_ = $src_sheet->{Cells}[$src_row][$src_col]->Value;
    } else {
        $_ = '';
    }
}

#
# Main Program
#
sub ret_files {
    my ($path)=@_;
    chdir($path) or die "Cannot change path: $!";
    return(glob('*.xls'));
}

sub main {
#... the rest of your code
}# end of main
    1;

[download]

Got your files into a list: 

C:\Temp>perl -e "require 'crow.pl'; print map{qq|$_\n|} ret_files('.')
+;" > do.dat

[download]
Ran your script for each file independently: 
perl -ne "BEGIN{require 'crow.pl'}; main($_)" do.dat

[download]

If you really want to make things simple you can copy the above command line instructions into a batch file (.bat) and re-run it whenever you want. Update: Oh yeah, you will want to flush your output so that you can see those debug statements early on if you are going to use this for hundreds of files.

Celebrate Intellectual Diversity

In reply to Re: A different kind of Spreadsheet::ParseExcel memory problem. by InfiniteSilence
in thread A different kind of Spreadsheet::ParseExcel memory problem. by jcoxen

Title:
Use:  <p> text here (a paragraph) </p>
and:  <code> code here </code>
to format your post, it's "PerlMonks-approved HTML":


  • Posts are HTML formatted. Put <p> </p> tags around your paragraphs. Put <code> </code> tags around your code and data!
  • Titles consisting of a single word are discouraged, and in most cases are disallowed outright.
  • Read Where should I post X? if you're not absolutely sure you're posting in the right place.
  • Please read these before you post! —
  • Posts may use any of the Perl Monks Approved HTML tags:
    a, abbr, b, big, blockquote, br, caption, center, col, colgroup, dd, del, details, div, dl, dt, em, font, h1, h2, h3, h4, h5, h6, hr, i, ins, li, ol, p, pre, readmore, small, span, spoiler, strike, strong, sub, summary, sup, table, tbody, td, tfoot, th, thead, tr, tt, u, ul, wbr
  • You may need to use entities for some characters, as follows. (Exception: Within code tags, you can put the characters literally.)
            For:     Use:
    & &amp;
    < &lt;
    > &gt;
    [ &#91;
    ] &#93;
  • Link using PerlMonks shortcuts! What shortcuts can I use for linking?
  • See Writeup Formatting Tips and other pages linked from there for more info.