Select Code to Download

open PLAY, $playlist . ".wpl";

...
   close PLAY;
  }
}

#!perl

...
close WRITE;
unlink ($playlist . ".wpl");
rename "temp.wpl", $playlist . ".wpl" or warn "Couldn't rename: $!";