Select Code to Download

#!perl
use strict;
...
             GROUP BY A,B,C,D
             ORDER BY A,B,C,D';
report($dbh,$query);

sub report {  
  my ($dbh,$sql) = @_;
...
  $dbh->do($sql) or die $DBI::errstr;
  return $dbh;
}