########### Read files #################################################
sub read_files{
	######### Read inputs file
	open(DH, "<$inputs") or die "Cannot open $inputs! $!";
	my @fields = <DH>;
	close (DH);
	
	######### Read style file
	open(DH, "<$style") or die "Cannot open $style! $!";
	my $css;
	while(<DH>){
		$css .= $_;
	}
	close(DH);
	
	######### Read language file
	my %fpmlang;
	open(DH, "<$language") or die "Cannot open $language! $!";
	my @temp = <DH>;
	close(DH);
	foreach(@temp){
		chomp $_;
		my @pair = split(/<==>/, $_);
		$fpmlang{$pair[0]} = $pair[1];
	}
	
	######### Read skin file
	my %fpmskin;
	open(DH, "<$skin") or die "Cannot open $skin! $!";
	my @temp = <DH>;
	close(DH);
	foreach(@temp){
		chomp $_;
		my @pair = split(/<==>/, $_);
		$fpmskin{$pair[0]} = $pair[1];
	}
	######### Read secure file
	open(DH, "<$secure") or die "Cannot open $secure! $!";
	
	close(DH);
	
	######### Read config file
	my %fpmconfig;
	open(DH, "<$config") or die "Cannot open $config! $!";
	my @temp = <DH>;
	close(DH);
	foreach(@temp){
		chomp $_;
		my @pair = split(/<==>/, $_);
		$fpmconfig{$pair[0]} = $pair[1];
	}
}
########### Form #######################################################
sub form{
&read_files;
print $conttype;
print @fields;
print $fpmconfig{'BLABLA'};
print $fpmskin{'BLABLA'};
}