Select Code to Download

while () {
    print <<END;
        my text
    END
}

while () {
    print <<END;
        my text
END
}

    print <<    END;

$sth=$dbi->prepare( q/
     SELECT * FROM my_table WHERE AVERAGE( cost ) < ?
     /) or die DBI->errstr;