if ($preview_mode) {
    print <<EOT
rename $file_from -> $file_to
chmod 0777 $file_to
unlink $temp_file
EOT
}
else {  
  rename $file_from, $file_to or die "Could not move file: $!\n";
  chmod 0777, $file_to or die "Could not chmod file: $!\n";
  unlink $temp_file or die "Could not delete file: $!\n";
}
[download]