#!/tool/bin/perl
use strict;
use warnings;

##</code><code>##

sub sub1
{
    use strict;
    use warnings;
    ...
}

sub sub2
{
    use strict;
    use warnings;
    ...
}

sub subN
{
    use strict;
    use warnings;
    ...
}