module getopt et -f

bonjour
je suis une débutante et j'ai un problème avec ce module. J'ai fait un programme (c'était dur) et maintenant je dois le compléter en utilisant getopts() et -f pour modifier le comportement de mon programme et là je ne sais pas comment faire! j'ai lu pas mal dessus mais je ne comprends pas commemt om l'utilise.

voici mon programe à l'aide SVP merci

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
use strict;
sub t{
    push(@_,@ARGV);
    (my $x, my $e,my $val)=@_;
    my $x1;
    my $dif;
   print "X0= $x, error=$e, fonction=$val  \n \n";
     do {
          while(($val !=1) and ($val!=2)){
            exit print "le troisième paramètre doit être 1 ou 2 \n!!!";
        }
        if ($val==1){
            $x1=$x-((7*$x+2)/7);
        }
        else{
        if ($x==5){
             exit print "si l´argument (1)= 2 le deuxième doit être différent de 5";}
             $x1=$x-((2*$x-10)/(2));
        }
        $dif=abs($x1-$x);
        $x=$x1;
        }
    while ($dif>$e);
    print "$x \n \n";   
}
&t;