# main
outer( 1, qw( A Set of Args ));

sub outer {
  my $pass = shift;
  &inner if $pass;
}

sub inner {
  print "inner: ", join( ' ', @_ ), "\n";
}