Select Code to Download

#!/usr/bin/perl
use strict;
...
) or die $dbh->errstr;
$dbh->do("COPY nodes FROM $sql") or die $dbh->errstr;
$dbh->disconnect;

#!/usr/bin/perl
use strict;
...
        ),
        end_html;
}

<NODE createtime="20000127201433" node_id="2515" nodetype="sourcecode"
+ author_user="979">Form Mailer</NODE>
<NODE createtime="20000105204851" node_id="1766" nodetype="sourcecode"
+ author_user="979">MP3 to CD Audio</NODE>
<NODE createtime="20020421045440" node_id="160856" nodetype="note" roo
+t_node="160855" parent_node="160855" author_user="2680">Re: How do I 
+count characters</NODE>
<NODE createtime="20020421034818" node_id="160854" nodetype="note" roo
+t_node="160853" parent_node="160853" author_user="43894">Re: Lining u
+p check boxes in Tk</NODE>
<NODE createtime="20020421030142" node_id="160852" nodetype="note" roo
+t_node="160838" parent_node="160838" author_user="133383">Re: ChAnGiN
+g CaSe of forms before they are submitted?</NODE>