use Data::Dumper;

use strict;
use warnings;

my $offset = 3;

print Dumper(localtime(time()));
print "\n";
print Dumper(localtime(time() + 24 * 3600 * $offset));