Select Code to Download

#! /usr/bin/perl -w

...
my @groups = &read_obj($ARGV[0]);
&triangulate_obj(\@groups);
&write_obj('new_'.$ARGV[0], @groups);