print $a::fred;