#!/usr/bin/perl 
use strict;
use warnings;
use POSIX (); 


my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = 
  POSIX::localtime(time);

print POSIX::difftime(
    POSIX::mktime(
        0, 0, 12, 21, 
        ( $mday >= 21 ? ( ( $mon + 1 ) % 11 ) : $mon ),
        ( ( $mon == 11 and $mday >= 21 ) ? $year + 1 : $year )
    ),  
    POSIX::mktime( $sec, $min, $hour, $mday, $mon, $year )
  ),  
  "\n";