use strict;
use vars qw($HELLO);

$HELLO = 'Hello';

sub new_message {
    $HELLO = 'Nihao';
};