#!/usr/bin/perl

use strict;
use warnings;
use Getopt::Long;

my %engEnvVars;

GetOptions (
    "engEnvVar=s" => \%engEnvVars
)

sub setEnvVars {
    my %engEnvVars = @_;

    my $key;

    foreach $key (keys %hash) {
        $ENV{$key} = $hash{$key};
    }

    system("printenv") if $DEBUG;
}

setEnvVars(%engEnvVars);