#!/usr/bin/perl
use warnings;
use strict;
use CGI;

# ... perl code ...

print <<END_HERE_DOC;
<select name="blah">
    # ... perl code in here doc ...
</select>
END_HERE_DOC

# ... perl code ...