print $q->header();
print qq!<meta Content-Disposition: attachment; filename=test.sql>!;
open (my $IN,"<".$location."tmp/test.sql") || die $!;
while (<$IN>){
    print $_;
}
close IN;