inital commit of perl script to make globe from image