my $info = $ue->fileinfo;
my %HoH = %{$info};

foreach (keys %HoH){
	print;
}