my %opts;
getopts( "J:f:s:", \%opts )
  or die "error message...";

## --or, all in one (shorter but not as clear)--

getopts( "J:f:s:", \my %opts )
  or die "...";