C:\PERL\bin>perl.exe "c:\1file@atime.pl" -e
Global symbol "@sorted" requires explicit package name at c:\1file@atime.pl line
 17.
Global symbol "@sorted" requires explicit package name at c:\1file@atime.pl line
 26.
Global symbol "$xmlfile" requires explicit package name at c:\1file@atime.pl lin
e 30.
Global symbol "@sorted" requires explicit package name at c:\1file@atime.pl line
 30.
Global symbol "$xmlfile" requires explicit package name at c:\1file@atime.pl lin
e 31.
Global symbol "$xmlfile" requires explicit package name at c:\1file@atime.pl lin
e 35.
Execution of c:\1file@atime.pl aborted due to compilation errors.

##</code><code>##

C:\PERL\bin>perl.exe "c:\1file@atime.pl" -e
Use of uninitialized value in numeric comparison (<=>) at c:\1file@atime.pl line
 17.
Use of uninitialized value in numeric comparison (<=>) at c:\1file@atime.pl line
 17.
File Name: ebert_conc.con moved to FTP - 30 mins for next upload.

File Name: ebert.xyz moved to FTP - 30 min for next upload.

##</code><code>##

#!/usr/bin/perl 
  
use warnings; 
use strict; 
use File::Copy; 
  
my $srcdir = "\\\\windowsservername\\directory\\Subdirectory\\";

my $dest =  "C:\\Documents and Settings\\";

for (;;) {  
    opendir(DIR, $srcdir) or die "Can't open $srcdir: $!"; 
    my @files = grep {!/^\.+$/} readdir(DIR); 
   @sorted = reverse(sort{ -M $a <=> -M $b
  #( $m{$a} ||= -M $a ) <=>
   # ( $m{$b} ||= -M $b )
 } @files);
close(DIR); 
    
    if (!@sorted) { 
        print "Files have been ended.\n\n"; 
         last;
}
   $xmlfile = $sorted[0]; 
    my $old = "$srcdir/$xmlfile"; 
  
    move($old, $dest) or die "Move $old -> $dest failed: $!"; 
   
    print "File Name: $xmlfile moved to Fileshare - 30 mins for next upload.\n\n"; 
    sleep 1800; # 30 Minutes 
}