#!/usr/bin/perl

use POSIX;
$ENV{'TZ'} = 'GMT';

%expected_ctime =
(
	2147483641 => 'Tue Jan 19 03:14:01 2038',
	2147483642 => 'Tue Jan 19 03:14:02 2038',
	2147483643 => 'Tue Jan 19 03:14:03 2038',
	2147483644 => 'Tue Jan 19 03:14:04 2038',
	2147483645 => 'Tue Jan 19 03:14:05 2038',
	2147483646 => 'Tue Jan 19 03:14:06 2038',
	2147483647 => 'Tue Jan 19 03:14:07 2038 <-- Last second in 32-bit Unix systems',
	2147483648 => 'Tue Jan 19 03:14:08 2038',
	2147483649 => 'Tue Jan 19 03:14:09 2038',
	2147483650 => 'Tue Jan 19 03:14:10 2038'
);

for $clock (sort keys %expected_ctime)
{
	print $expected_ctime{$clock} . "\n";
	print ctime($clock) . "\n";
	print "\n";
}