#!/usr/local/bin/perl
$current_emotion = "grouchy\n";
print $current_emotion;
$current_emotion = "angry\n";
$current_emotion = "happy\n";
print $current_emotion;