#! /usr/local/bin/perl

# This example will make a simple call to a perl subroutine

&PrintSub; #call the sub to do the print statement

# declare the sub for use
sub PrintSub
{
    print "This is inside the sub\n";
}

    Source: geocities.com/siliconvalley/vista/6493/perl/code

               ( geocities.com/siliconvalley/vista/6493/perl)                   ( geocities.com/siliconvalley/vista/6493)                   ( geocities.com/siliconvalley/vista)                   ( geocities.com/siliconvalley)