sub testSub
{
    my $test_var = shift;

    $$test_var = "Hello!;)\n";

    return 1;
}