Select Code to Download

#!/usr/bin/perl -w

...
    my ($table,$dHandle) = @_;
    return $dHandle->prepare("select * from $table");
}

CustId 4 10 0 0
FirstName 12 50 0 1
...
Zip 12 10 0 1
Phone 12 25 0 1
Fax 12 50 0 1