Select Code to Download

my $list;
my @changes = param('tellmessage');
...
      print FILE "$list\n";    
    }    
close(FILE);

if (@changes > 1) {
  exit;
}