#!/usr/bin/perl -w
$star->{light}++;
$star->{bright}++;
$me->{seen_tonight}[0]=$star;
$me->$_('wish') foreach qw(may might);
$me->wish(upon => $star, outcome => 'grant', when => 'tonight');
'???';