Select Code to Download

my $proph = shift;   # defaults to @_
my ($proph) = @_;    # list context instead
my $proph = $_[0];   # be explicit about wanting the first element