#! /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";
}