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