use Filesystem::Preview;
  if ($ARGV[0] eq "--preview") {
    shift;
    enable_filesystem_preview();
  }
  ...
  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";