Select Code to Download

#!/usr/bin/perl -w
use strict;
...
foreach my $node (@nodes) {
    print($node->to_literal, "\n");
}