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;

        }

}