use Getopt::Std;
getopts('u:x:m:', \%Opts)
$file = $Opts{'f'} or die "Where is your file?";
$x = $Opts{'x'};
$m = $Opts{'m'};