### foo_file.pl

sub FooBegin{
    return('begin now');
}

sub FooProcess{
    ### this is the subroutine where we
    ### do the foo processing
    $foo = "blahblahblah";
    $result = $foo x 12;
    return $result;
}

sub FooEnd{
    return('done');
}