ich würde überprüfen, ob $ENV{'HTTP_HOST'} deiner hauptdomain entspricht, also example.exmpl oder eben www.example.exmpl. wenn beides nicht zutrifft, kannst du von einer subdomain ausgehen - den usernamen holst du dir da dann so raus:
my ($username) = $ENV{'HTTP_HOST'} =~ m/[^\.]+\.example.exmpl$/i;
wobei du natürlich example.exmpl anpassen musst - damit bekommst du dann eben entsprechend die third-level-domain, wenn du ein www davor hast, setz es mit hinein...