Select Code to Download

#!/usr/bin/env perl 
use strict;
...
open FH, '>', $DB_FILE;
print FH freeze $data;
close FH;