use mine::package qw($thing); print "hello $thing";