c:\@Work\Perl\monks>perl -le
"use warnings;
 use strict;
 ;;
 use Data::Dumper;
 ;;
 my $test;
 ;;
 $test->{'RecordType'} = 'UNKNOWN';
 ;;
 print Dumper $test;
"
$VAR1 = {
          'RecordType' => 'UNKNOWN'
        };