$ perl 1178137.pl 
The current time is Mon Dec 19 23:40:37 2016
The old time is Mon Dec 19 23:31:00 2016
Half an hour ago is Mon Dec 19 23:10:37 2016
Old time is within a half hour