Removing text from a text file

Why did you comment out the use warnings statement?
Why aren't you using the strict pragma?
Why are you capturing and returning the exit code of your system call in the new_path sub, but call the sub in void context?
Why are you using the system call to del when Perl has the built-in command unlink for deleting files?
Wouldn't it be easier to capture the output of the cleartool command in the script rather than sending it to a file that you then need to open/process?
Your method of populating and processing the @dirlist could be dramatically improved by the use of the File::Find module.

Here are a few warnings that your script will generate.

Unquoted string "element" may clash with future reserved word.
Name "main::d" used only once: possible typo
Name "main::date" used only once: possible typo
Name "main::time" used only once: possible typo

Hey Fishy...  you point out a lot of good things, all of which I agree with, and all very true and factual, but you forgot to add a solution...

Jason,

It's not that I forgot...I'm running late and needed to get ready for work.  I'll post a solution a little later once I get to work and clear up a few things of my own.

:>

This is untested and and will need an adjustment to the clearprompt command and possibly a couple other minor tweaks, but it addresses the issues that I raised.

#! c:/perl-8.5.0/bin/perl

use warnings;
use strict;
use File::Find;

my $path = new_path ("What directory to pull info?");
my $file = 'c:/temp/logged_media.txt';

print "file being created: $file\n";
unlink $file if -e $file;

open (FILE, '>', $file) || die "unable to open $file $!";
find(\&wanted, $path);
close FILE;

system("notepad.exe $file");

################################################################################

sub wanted {
   return unless -f File::Find::name && -s File::Find::name > 0;
   print FILE `cleartool ls -short File::Find::name`;
}

sub new_path {
   my $ask_prompt = shift;
   $ask_prompt = qq("$ask_prompt");

   #  change the clearprompt command to send its output to STDOUT instead of the file
   return `clearprompt text -outfile element -default %C://diff_list.txt% ^-prompt $ask_prompt`;
}

I use clearcase (cleartool) commands every day on AIX and I wasn't sure where it was needed either, so I just provided the solution hoping nexcool would be able to work it into his existing script...  :|