#!/usr/local/bin/perl

use warnings;
use strict;

my $secs_in_minute = 60;
my $mins_in_hour = 60;
my $two_hours = $secs_in_minute * $mins_in_hour * 2;
my $xronos = localtime (time + $two_hours);

print $xronos."\n";