[Perl] mkdir chdir

my $data = <>;

chomp $data;

@dirname = split(/\.fasta/,$data);

mkdir：建立新的目錄 ex: mkdir($dirname[0],0755) || die "$!\n";

chdir：切換目前工作的目錄 ex: chdir($dirname[0]) || die "$!\n";

rename：幫檔案改名

unlink：就像使用rm一樣，unlink可以刪除系統中的某些檔案