Select Code to Download

#!/usr/lib/perl
use DBI;
...
print FH1 $tb;
close FH1;
print "Congratulations, report file has been saved as $output_file";

NAME    Age      Department
------- -------  -------   
...
        28 years           
                 HR

if($Employee{"Name"} && $Employee{"Age"} && $Employee{"Dept"}){
             $tb->load([$Employee{"Name"},$Employee{"Age"},$Employee{"
+Dept"}]);
             undef %Employee;
         }