#!/usr/bin/perl -w 
use strict;

#
# This is the main part of the script here...

my ($parm1,$parm2,$parm3,$parm4)=@ARGV;

func1($parm1,$parm2)
$func2($parm3,$parm4)

exit(0);

sub func1{
#logic here.
}
sub func2{
#logic here
}
|
| etc
|