Perl重命名当前目录下的文件

use strict;
use warnings;

use Cwd;

sub main {
    my $dir = getcwd();
    opendir my $DH, $dir
        or die "Can not open directory: $dir";

    while (my $file = readdir $DH) {
        if ($file =~ /.*-(\d{3})_.*\.mp3$/) {
            rename $file, "$1.mp3";
        }
    }
}

main()

user Cwd;
my $dir = getcwd;

my $dir = $ENV{‘PWD‘};