package Alaska;

use strict;
use warnings;

my $self = bed('asleep');
$self = woken('reason' => 'shook');
$self = why('Earthquake');
$self = inspired('write poem');
1;