sub a_subroutine {
  print "this is a subroutine\n";
}

sub another_subroutine {
  print "this is another subroutine\n";
  a_subroutine();
}

another_subroutine();