use Getopt::Long (); 

our $opt_float;

Getopt::Long::Configure('no_auto_abbrev');
Getopt::Long::GetOptions('float=f')
   or die("Bad args\n");

print("\$opt_float = ", defined($opt_float) ? $opt_float : "[undef]", "\n");
print("\@ARGV      = ", join(' ', @ARGV), "\n");

##</code><code>##

>perl 551404.pl -float 1.3
$opt_float = 1.3
@ARGV      =

>perl 551404.pl -float abc
Value "abc" invalid for option float (real number expected)
Bad args