mysql -e 'desc my_database_table' | cut -f1 | perl -ple '$_=qq{has $_ => ( is => "rw" );}'