perl中用Open打开系统命令

#!/usr/bin/perl -w
open(F1,"dir /B|sort|");
@a=readline F1;
foreach (@a) {
print "$_";
}
close F1;