如何使用Perl在Windows上录制MP3文件？

cpan install Audio::MP3::Lame

#!/usr/bin/perl

use strict;
use warnings;
use Audio::MP3::Lame;

my $input_device = 'default';
my $output_file = 'output.mp3';
my $sample_rate = 44100;
my $channels = 2;
my $bit_rate = 128;

my $mp3 = Audio::MP3::Lame->new(
    input_device => $input_device,
    output_file => $output_file,
    sample_rate => $sample_rate,
    channels => $channels,
    bit_rate => $bit_rate
);

$mp3->start();
print "Recording...\n";
sleep(10);
$mp3->stop();

print "MP3 file saved to $output_file\n";