use strict;

my $HELLO = 'Hello';

sub new_message {
    $HELLO = 'Nihao';
}