Select Code to Download

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

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