Select Code to Download

use File::Spec;

my $file = File::Spec->catfile($protected_folder, $protected{'file'});

print "Content-type: text/plain", "\n";
print "Status: 404 Not Found", "\n\n";