Select Code to Download

while (-e $filename){
 $filename.= '.new'; # or a 'unique' extension
}
open(FH,"> $filename") or die "Error : $!";
...