use strict ;
use Getopt::Std ;

sub test{

use vars qw($opt_d $opt_f) ;
    getopts('d:f:') ;
print $opt_d, "\n" ;
print $opt_f, "\n" ;

}

&test() ;

1 ;