Select Code to Download

if (!$Session->{'isAuthenticated'})
{
...

# ... etc ...
}

my $server_name = 'www.example.com';
my ( $prefix, $domain )
    = ( $server_name =~ m{ \A (\w+) \. (\w+) \. com }xms );
print "prefix: '$prefix'\n";
print "domain: '$domain'\n";