print "Hello, @{[ $q->param('real_name') ]}\n";