#!/usr/bin/env perl

use strict;
use warnings;

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