#!/usr/bin/perl

print "\@ARGV: [@ARGV]\n";
my @my_args = map { /^-(.*)/ } @ARGV;
print "\@my_args:\n";
print "$_\n" for @my_args;