#! perl
use strict;
use warnings;
use Getopt::Long;

my $L1 = '';
my $L2 = '';
my $p  = '';

GetOptions('L1=s' => \$L1, 'L2=s' => \$L2, p => \$p);

print "L1 switch: $L1\n";
print "p  switch: $p\n";