/usr/share/doc/ppp/examples/popp is in ppp 2.4.5-5.1ubuntu2.
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 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33  | #!/usr/bin/perl -w
#
# popp         connects to your provider and returns. You are able to
#              see pppd proceed dialing. Once the connection is
#              established pppd returns.
#
# Exit Status: taken from pppd
#		
# Example:     popp && mailsync
#
#              This will dial your default provider, you will see pppd
#              progress and as soon as the connection's established, your
#              mail will get synchronized
#
# Version:     0.1 28-Dec-2001  "Tomas Pospisek" <tpo_deb@sourcepole.ch>
use strict;
my $ret;
my $pid = fork();
unless ($pid) {
	# child
	exec "plog -f";
} else {
	# parent
	my $provider = "provider" unless @ARGV;
	$ret = system "pon $provider @ARGV updetach";
	kill "SIGTERM", $pid;
};
exit $ret / 256;	# perlbizzare
 |