Try with the following example code

use strict;
use warnings;


my $current = `date`;                                                 
+                     
print "Current date and time is $current";

print `date -d "1 day ago"`;
print `date -d "1 week ago"`;
print `date -d "1 month ago"`;
print `date -d "1 year ago"`;
[download]