Select Code to Download

#!/usr/bin/perl 

...
      "File Name: $xmlfile moved to Fileshare - 30 mins for next uploa
+d.\n\n";
    sleep 1800;    # 30 Minutes
}

    my $oldestfile;
    my $oldestage;
...
            $oldestage = -M $file;
        }
    }