#!/usr/bin/perl

my %opt;
my $arg = 'Parameter';
$opt{$arg} = shift @ARGV;