Rename Perl script

[cjtucker1976]

I have very little knowledge or Perl but we have a script set to rename some audio files and post it to a index.html file for viewers to click on and listen to.It is updated every 30 minutes. Does this look correct- right now there aren't any files being sent to the index.html file and the links are pointing to a different server- please help- thanks.

Here is the perl script:

#!/usr/bin/perl
'di';
'ig00';
#
# $RCSfile: rename,v $$Revision: 4.1 $$Date: 92/08/07 17:20:30 $
#
# $Log: rename,v $

($op = shift) || die "Usage: rename perlexpr [filenames]\n";
if (!@ARGV) {
@ARGV = <STDIN>;
chop(@ARGV);
}
for (@ARGV) {
$was = $_;
eval $op;
die $@ if $@;
rename($was,$_) unless $was eq $_;
}
##############################################################################

# These next few lines are legal in both Perl and nroff.

.00; # finish .ig

'di \" finish diversion--previous line must be blank
.nr nl 0-1 \" fake up transition to first page again
.nr % 0 \" start at page 1
';<<'.ex'; #__END__ ############# From here on it's a standard manual page ############
.TH RENAME 1 "July 30, 1990"
.AT 3
.SH NAME
rename \- renames multiple files
.SH SYNOPSIS
.B rename perlexpr [files]
.SH DESCRIPTION
.I Rename
renames the filenames supplied according to the rule specified as the
first argument.
The argument is a Perl expression which is expected to modify the $_
string in Perl for at least some of the filenames specified.
If a given filename is not modified by the expression, it will not be
renamed.
If no filenames are given on the command line, filenames will be read
via standard input.
.PP
For example, to rename all files matching *.bak to strip the extension,
you might say
.nf

rename 's/\e.bak$//' *.bak

.fi
To translate uppercase names to lower, you'd use
.nf

rename 'y/A-Z/a-z/' *

.fi
.SH ENVIRONMENT
No environment variables are used.
.SH FILES