/usr/share/doc/libgraphviz-perl/examples/port.pl is in libgraphviz-perl 2.22-1.
This file is owned by root:root, with mode 0o755.
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 16 17 18 19 20 21 22 | #!/usr/bin/perl -w
#
# This is a simple example for illustrating the
# concepts of ports
use strict;
use lib '../lib';
use GraphViz;
my $g = GraphViz->new();
$g->add_node('London', label => ['Heathrow', 'Gatwick']);
$g->add_node('Paris', label => 'CDG');
$g->add_node('New York', label => 'JFK');
$g->add_edge('London' => 'Paris', from_port => 0);
$g->add_edge('New York' => 'London', to_port => 1);
#print $g->_as_debug;
#print $g->as_text;
$g->as_png("port.png");
|