#!/usr/bin/perl -w use strict; my $var=time/(24*60*60); print $var%2 ? "odd\n" : "even\n";