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

##</code><code>##

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