Select Code to Download

my $timestamp = UnixDate(ParseDate('last sunday'), "%s");
if (! is $obj->is_weekday($timestamp), 0, 'Sunday ($ts) is weekend')) 
+{
    diag "Last sunday = " . localtime($timestamp) . " ($timestamp)";
    diag "ParseDate('last sunday'):" . ParseDate('last sunday');
};