use Getopt::Std;
use Data::Dumper;

$options={};
getopt("df",$options);
print Dumper($options);