#!/usr/bin/perl
#
# seek light
#
#   by Troy Brooks

if (my $eyes) {open
$wide; seek $light, @once, @once;
close $eyes; sleep 2; "dawn";
}