/usr/share/doc/libgeo-proj4-perl/examples/sample.pl is in libgeo-proj4-perl 1.05-2build2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | #!/usr/bin/perl
use strict;
use warnings;
use Geo::Proj4;
my $proj = Geo::Proj4->new( proj => "utm", zone => 10 );
my ($x, $y) = $proj->forward(38.40342, -122.81856);
print "conversion to UTM: y is $y\n";
print "conversion to UTM: x is $x\n";
my ($lat, $long) = $proj->inverse($x, $y);
print "inverse conversion: lat is $lat \n" ;
print "inverse conversion: long is $long \n" ;
|