Select Code to Download

coord Coordinate { 12 23 45, 14 16 65 }
coord Coordinate { 13 34 57, 14 17 55 }
coord Coordinate { 14 33 34, 14 15 40 }

#! /usr/bin/perl

...
}

print "COORDINATES: $_\n" foreach ( @coordinates );

COORDINATES: 12 23 45 14 16 65 
COORDINATES: 13 34 57 14 17 55 
COORDINATES: 14 33 34 14 15 40

my $output_filename = './test.cpp';
open $OUTPUT, '>', $output_filename or die "Can't open $output_filenam
+e for writing: $!";
...
    print { $OUTPUT } "$_\n";  # Print to file
}
close $OUTPUT;