Select Code to Download

#!/usr/bin/perl -wl

...
$, = $/;

print sort grep defined *{"ap::$_"}{"CODE"}, keys %ap::;

#! /usr/bin/perl

...
$desc = $ps->MakeDescriptor();
$control = $ps->MakeControlObject();
$control->Play(phEventClose,$desc,phDialogSilent);