perl思い出しメモ

コード

# ファイル一覧
my @files = glob ("*.*");

foreach my $file (@files){
    print("$file\n");    
} 

# コマンド実行
my $cmd = `ls -alT`;
print($cmd);