in reply to use strict with Getopt::Std

larsen is correct ... i just wanted to point out that you can also accomplish what you want with our: 
our ($opt_J,$opt_f,$opt_s,$STATUS);
getopts("J:f:s:");

[download]

jeffa

L-LL-L--L-LL-L--L-LL-L--
-R--R-RR-R--R-RR-R--R-RR
B--B--B--B--B--B--B--B--
H---H---H---H---H---H---
(the triplet paradiddle with high-hat)

In Section Seekers of Perl Wisdom