use strict;
use Time::Local;

$|++;

my $nyear = (split '\s', localtime)[5]+1;
my @ndate = (0, 0, 0, 0+1, 0, $nyear);
my $ndate = timelocal(@ndate);

while((my $time = $ndate - time) > 0 and sleep 1){
  print "$time seconds left untill $nyear ... $/";
}

print "$/ Happy New $nyear! $/"