Select Code to Download

use strict;
use warnings;
...
  system ($comm);
  print "$?\n";
}

$ perl test.pl file.txt

$ perl test.pl file\ name.txt

if (isReadableFile ($ref_file)) {
  $ref_file =~ s/ /\\ /g;  ###### Added
...
} else {
  print STDERR "$ref_file Does not exist\n";
}