perl -e 'print ">",exists $main::{1},"<\n"'
><