【perl】遍历当前目录下所有文件

#!/usr/bin/perl
use strict;
use Getopt::Long;

my $dir_path;
my $file_output;

GetOptions(
   'dir_path|dir=s'=>\$dir_path,
   'file_output|fo=s'=>\$file_output,  
);

open FILE, ">", $file_output;
print "all files under $dir_path are listing!\n";
&list($dir_path);
print "all files under $dir_path are listed!\n";

if(!(-e "./script_gen" && -d "./script_gen")) {
  `mkdir script_gen`;
  `mv $file_output script_gen`;
}
else {
  `mv $file_output script_gen`;
}

sub list{
  my $file=shift @_;
  if(-d $file) {
    &list($_) foreach <$file/*>;
  }
  else {
    print FILE "$file\n";
  }
}

close FILE;