How about this?

    @ARGV = ('httpd.conf');
    while (<>) {
        print("Line = $.\nName = $1\n"), last
            if /^ServerName\s+(\S+)\s*$/;
    }
[download]

This could be reduced to a one-liner:

    % perl -ne 'print("Line=$.\nName=$1\n"), last if /^ServerName\s+(\
+S+)\s*$/;' httpd.conf
[download]

Bit long though.