#!/usr/bin/perl
use warnings;
use strict;

our %TESTHASH = (
    'KEY1' => 'VALUE1',
    'KEY2' => 'VALUE2',
);

foreach my $arg (@ARGV) {
    my $toeval = '"' . $arg .'";';
    print $toeval, "\n";
    my $command = eval $toeval;
    print $command, "\n";
    system($command);
    print "\n";
}