sub concatenate{ $_[ 0 ] . $_[ 1 ] }

##</code><code>##

sub add{ $_[ 0 ] + $_[ 1 ] }

##</code><code>##

sub loop (&@) { $_[ 0 ]->( $_ ) for @_ }

##</code><code>##

Synopsis:

#!/usr/bin/perl -w
use strict;
use warnings;
use diagnostics;
use Data::Dumper;
use Fatal;
use IO::All;
use Parse::RecDescent;
use Getopt::Short;
use Getopt::Standard;
use Getopt::Long;
use Config::Standard;
use Pod::Usage;
use DBI;
use Class::DBI;
use Class::MethodMaker;
use Aspect;
use Algorithm::Just;

my $config = Config::Standard->new( @ARGS );
my $program = Algorithm::Just->new( $config );
exit $program->doit( 
    instructions => 'Use what you need' 
);