#!/usr/bin/env perl

use strict;
use warnings;

my $a = '2014-12-31';
my $b = '2017-11-01';
warn int $a;
warn int $b;
warn "yes" if $a < $b;
warn "no" if $a > $b;