perl 随機生成檔案

 同學叫我幫他寫一個批量重命名檔案的腳本，我是用shell寫的，我想把它用perl改寫一下，前提要有一些檔案，就先生成一些檔案：

 #!/usr/bin/perl -w

while(1){

my $rand = int(99999+ rand(1000));

if ($rand < 100899){

        $file = ">$rand.jpeg";

        open(FILE,$file);

        close(FILE);

        }else{

        last;

        }

}