Perl 如何通过Prima:：SaveDialog以所需的名称和类型保存图像？

我正在尝试将代码文件夹中的img.png文件保存到另一个文件中，该文件的名称为所需的位置

use Prima qw(Application Buttons StdBitmap FileDialog MsgBox PodView); 

my $save = Prima::SaveDialog->new(
    text     =>'Save Image',
    fileName => $save->fileName,
    filter   => [
        ['PNG Image' => '*.png'],
    ],
);

if ( $save->execute ) {
    my $x = Prima::Image->load('img.png');
    die "$@" unless $x;
    die "$@" unless $x->save( fileName);
}

run Prima;

---

我哪里出错了？

问题解决了。代码可能如下所示：

use Prima qw(Application Buttons StdBitmap FileDialog MsgBox PodView); 

my $save = Prima::SaveDialog->new(
    text     =>'Save Image',        
    filter   => [
        ['PNG Image' => '*.png'],
    ],
);

if ( $save->execute ) {
    my $x = Prima::Image->load('img.png');
    die "$@" unless $x;
    die "$@" unless $x->save($save->fileName); <--------------------changed.
}

run Prima;

在每个脚本中始终包含和。变量$save周围有很大的语法错误。