Select Code to Download

use CGI::Carp qw( fatalsToBrowser );

...
....

open FILE, $file;

#!/usr/bin/perl -w

...
  close CMD;
}