$ cat 11117714.pl 
sub foo {
	my $i = shift;
####################
# Name or Description of Code Section
####################
	return ++$i;
}
$ perltidy -npro -isbc < 11117714.pl 
sub foo {
    my $i = shift;
####################
# Name or Description of Code Section
####################
    return ++$i;
}
$