Select Code to Download

use CGI ':standard';
use File::Spec 'rel2abs';
...
} else {
   # ERROR - They've tried to ../ their way out
}