##

#!/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 . "
";
#	my @TMP1 = split ( // , $var);
#	$var = join ( "" , @TMP1);


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

store \%db, $dbfile ;

##

##

pic.jpg
Software error:

Can't store GLOB items at ..\..\lib\Storable.pm (autosplit into ..\..\lib\auto\Storable\_store.al) line 215, at test1.pl line 25

For help, please send mail to this site's webmaster, giving this error message and the time and date of the error. 

##

##

#    my @TMP1 = split ( // , $var);
#    $var = join ( "" , @TMP1);