Передача параметров в pl.

use Imager;
use File::MkTemp;
use File::Basename;
use File::Copy;

=head2 Проверка и сохранение изображения

    $res = img_save($BATT_OBJECT_REF, $config, $cgi_query);
    $res = {name=>'image name', width=>'шиирна', height=>'высота'}

=cut

sub img_save{
    my $res = {name=>'', height=>0, width=>0};
    my $object = shift;
    return $res if (!$object);
    my $config = shift;
    return $res if (!$config);
    my $query = shift;
    return $res if (!$query);

    my $filename = $object->get_value;
    if (!$filename) {
       $object->set_errmsg("There are no file");
       return $res;
    }

    my @type = ('jpg', 'gif', 'png');
    fileparse_set_fstype('MSWin32');
    my ($fname, $dirpath, $suffix) = fileparse($filename, @type);
    my $tmpfile = $config->get_home_path."/".$config->get_tmp_path;
    $tmpfile = $tmpfile."/".mktemp('tmpXXXXXX', $tmpfile).".$suffix";
    open (FILE, "> $tmpfile") || die ("can't create temp file $tmpfile. contact webmaster.");
    binmode(FILE);
    my $buffer;
    while (read($filename, $buffer, 1024)) {
        print FILE $buffer;
    }
    close(FILE);

    #далее требуется попробовать открыть его и пересохранить, если он в порядке
    $fname = convert_fname($fname)."$suffix";
    my $img = Imager->new();
    if ($img->open(file=>$tmpfile)) {
        $res->{'width'} = $img->getwidth();
        $res->{'height'} = $img->getheight();
        $fname = $config->get_home_path."/".$config->get_www_path."/".$config->get_pics_path."/$fname";
        ($fname, $res->{'name'}) = dublicate_if_exist($fname);

        if (!move($tmpfile, $fname)) {
            $res->{'name'} = undef;
            $object->set_errmsg("system error: can't move file. contact webmaster.");
        }
    }
    else {
        $object->set_errmsg($img->{'ERRSTR'});
    }
    unlink $tmpfile;
    return $res;
}

=head2 Проверка существования файла и модуляция его имени в зависимости от этого

    Задается полный путь. Подразумеваем,что используется текущая ОС
    ($fname, $shortname) = dublicate_if_exist($fname);

=cut

sub dublicate_if_exist{
    my $fname = shift;
    fileparse_set_fstype($^O);
    if (-e $fname) {
       my ($name, $dir, $suffix) = fileparse($fname, '\.(\w+)');
       my $i=0;
       while ((-e "$dir$name".chr(97+$i)."$suffix") && $i<26)  {
             $i++;
       }
       $fname = "$dir$name".chr(97+$i)."$suffix";
    }
    my ($name, $dir, $suffix) = fileparse($fname, '\.(\w+)');
    my $shortname = $name.$suffix;
    return ($fname, $shortname);
}