Select Code to Download

#!/usr/bin/perl

...

    say "$_ $occ $min $max $tot";
}

$ perl test.pl
select * from emp ...etc  2 5 30 35
select * from home ...etc  2 20 20 40
select * from person ...etc  3 10 50 90
$