#!/usr/bin/perl
#

use strict;

my $uptime = `uptime`;

my $datestring = `date +%Y%m%d`;
chomp $datestring;
rename( '/app/data/load_logs/load.log', '/app/data/load_logs/load.log.' . $datestring );