use DateTime::Event::Random; use strict; my $dt; if (exists (USPS)) { # they could be bankrupt do { $dt = DateTime::Event::Random->datetime( after => DateTime->now ); } until $dt->day_of_week != 7; # sunday } else { print "Never, sorry\n"; }