CopyShape.pl

#
# Copy a shapefile
#
use strict;
use Geo::Shapelib qw/:all/;

# The files
my $input_file  = '/cygdrive/c/BRIANS_JUNK/PERL/garmin_wp_nad27';
my $output_file = '/cygdrive/c/BRIANS_JUNK/PERL/copy';

my $shape  = new Geo::Shapelib $input_file; # Load entire file into memory

# Write it out with the new name.
$shape->save($output_file);

# Copy the projection file as well.
system("cp", "$input_file.prj", "$output_file.prj");