Select Code to Download

my $result=Select($id,\$dbh); 
$dbh->disconnect;

sub SelectProfile { 
     my $id=$_[0]; my $dbh=$_[1];
...
         return $rowdata;
}##END Select
############################################################