#!/usr/bin/perl

my ($Param, $Var) = @ARGV;

$Var = lc($Var);

print "\$$Param = $Var\n";