#!/usr/bin/perl -w

use strict;
use warnings;
use CGI;
use CGI::Carp qw/fatalsToBrowser/;
use Storable;

my %db;
my $query = new CGI;

my $dbfile = "C:/Program Files (x86)/Abyss Web Server/htdocs/hs/scripts/db1";


print "Content-type: text/html\n\n";
	
	my $var = $query->param("pic1");
	print $var . "<br>";
#	my @TMP1 = split ( // , $var);
#	$var = join ( "" , @TMP1);


$db{"1"}{"pic1"} = $var;

store \%db, $dbfile ;