$query->{'.tmpfiles'}->{$file_uploaded}->{'info'}->{'Content-Type'}

##</code><code>##

$query->{'.tmpfiles'}->{$file_uploaded}->{'info'}->{'name'}
##</code><code>##

$VAR1 = bless( {
    '.charset' => 'ISO-8859-1',
    '.tmpfiles' => {
        '*Fh::fh00001testforme.jpg' => {
            'name' => bless( do{\(my $o = '/usr/tmp/CGItemp12261')}, 'CGITempFile' ),
            'hndl' => bless( \*{'Fh::fh00001testforme.jpg'}, 'Fh' ),
            'info' => {
                'Content-Type' => 'image/jpeg',
                'Content-Disposition' => 'form-data; name="FileFT1"; filename="testforme.jpg"'
            }
        }
    },