#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

my ($p,$x,$f);

GetOptions('-p=n' => \$p,
       '-x' => \$x,
       '-f=s' => \$f);

# ... mehr Code