Global symbol "$logmsg" requires explicit package name at
        /oven_script/tst/dlt30day-oven1d-j2.pl line 21.  (#1)
    (F) You've said "use strict vars", which indicates that all variab
+les
    must either be lexically scoped (using "my"), declared beforehand 
+using
    "our", or explicitly qualified to say which package the global var
+iable
    is in (using "::").
[download]

Yep! Right.
This an error before the other errors. The first "my $logmsg" is commented out. There is more than one problem in the code. Once poster gets to the: my $logmsg = $date/$dir/$file; it will be found that is a "division by zero error". I was just looking in web browser and not in my editor so didn't see the exact line.

I highly advise the op to not reuse $logmsg both as a file name and as a message text name.

#!/usr/local/bin/perl

# 2592000 = 30 day n min (60 *60 * 24 *30 )

use strict;
use POSIX;
use warnings;

# change the below to dlt - dl30    
my $logfile = "/script_logs/30DyDlt.txt";
my $date = localtime();

my $dir = '/oven_web/iportal/cgi-bin/uploads';

opendir(DIR,$dir) || die "Can't open $dir : $!\n";

my @files = readdir(DIR); # you may want to grep only certain files he
+re

close(DIR);
### my $logmsg = $date/$dir/$file;
my $logmsg = "$date/$dir/$file";

#print $logmsg = $date/$dir/$file;

open LOGFILE, ">> $logmsg " or die " cannot open logfie $logfile for a
+ppend $!";


foreach my $file(@files)

{

    my $now = time;

    my @stat = stat("$dir/$file");


    if ($stat[9] < ($now - 2592000))

    {

        print "Deleting $dir/$file...";

        #unlink("$dir/$file");

        #print "Done.\n";
        print LOGFILE "$logmsg \n";


    }



}
close LOGFILE;
[download]

#!/usr/local/bin/perl

# 2592000 = 30 day n min (60 *60 * 24 *30 )

use strict;
use POSIX;
use warnings;

# change the below to dlt - dl30    
my $logfile = "/script_logs/30DyDlt.txt";
my $date = localtime();

my $dir = '/oven_web/iportal/cgi-bin/uploads';
my $file = "aaa"

opendir(DIR,$dir) || die "Can't open $dir : $!\n";

my @files = readdir(DIR); # you may want to grep only certain files he
+re

close(DIR);
### my $logmsg = $date/$dir/$file;
my $logmsg = "$date/$dir/$file";

#print $logmsg = $date/$dir/$file;

open LOGFILE, ">> $logmsg " or die " cannot open logfie $logfile for a
+ppend $!";


foreach my $file(@files)

{

    my $now = time;

    my @stat = stat("$dir/$file");


    if ($stat[9] < ($now - 2592000))

    {

        print "Deleting $dir/$file...";

        #unlink("$dir/$file");

        #print "Done.\n";
        print LOGFILE "$logmsg \n";


    }



}
close LOGFILE;
[download]

well it still did not compile

/usr/bin/perl /oven_script/tst/dlt30day-oven1d-j3.pl Global symbol "$f
+ile" requires explicit package name at /oven_script/tst/dlt30day-oven
+1d-j3.pl line 14.
[download]

Quite unsurprising, because you don't declare $file and you never assign a value to it before using it. You use a variable @files above that - maybe you wanted to use an element of @files?