#!/usr/bin/perl

print "The start of the main body.\n";
&great_perl;
print "The end of the main body.\n";

sub great_perl
{
  print "From the subroutine; PERL is great!\n";
}

# This prints:
# The start of the main body. 
# From the subroutine; PERL is great!
# The end of the main body.