#!perl use strict; use Modules; main(); sub main { #main algorithm, calls to other subs } sub1 {#sub code} sub2 {#sub code} etc..