如何使用Perl从8.3 DOS路径获取完整的Win32路径？

#!/usr/bin/perl

use strict;
use warnings;
use Win32;

my $short_path = 'C:\\PROGRA~1\\AMZON~1\\tmp\\';
my $long_path = Win32::GetLongPathName($short_path);

print "Short path: $short_path\n";
print "Long path: $long_path\n";