# Current Time Value
my $CurrentTime = `perl -e 'print time, '`;
print("$CurrentTime\n");

# 432000 Second in 5 days
my $OldTime = "$CurrentTime" - 432000;
print("$OldTime\n");