Wee Middle of the night

#!/usr/bin/perl -w
use strict;
my $laundry = "done";
if ($laundry eq "done";) {
    sleep_now();
    dream();
}

night