print $val;

--output:--
*main::x