#!/usr/bin/perl

use strict;
use warnings;

use DateTime;

my $dt = DateTime->now;

my $minute = $dt->minute;

if ( $minute >= 55 ){
	print "It's within 5 minutes of an hour\n";
}else{
	print "No clock in for you!\n";
}