#!/usr/bin/perl

use strict;
use warnings;
use Data::Dumper;
use Getopt::Long 'GetOptionsFromArray';
use feature 'say';

my @args  = @ARGV; 
my %query_params;

print "perl args: ".Dumper( \@args );

GetOptionsFromArray (
   \@args, \%query_params,
   'timestamp'
);  
print "query_params: ".Dumper( \%query_params );

my $report_type = $args[0];

say "timestamp = $query_params{timestamp}";
say "report type = $report_type"