Scripts for issue #46


Perl
Wakeup