使用perl语言，解压test.log.gz文件到当前文件夹

你可以使用Perl语言中的`IO::Uncompress::Gunzip`模块来解压缩test.log.gz文件到当前文件夹，代码如下：

use IO::Uncompress::Gunzip qw($GunzipError);

my $input_file = 'test.log.gz';
my $output_file = 'test.log';

my $status = gunzip $input_file => $output_file;
die "Error: $GunzipError\n" if $status != 1;

这段代码使用`gunzip`函数将`test.log.gz`文件解压缩到了`test.log`文件中。如果解压缩过程中出现错误，会输出错误信息。