Select Code to Download

use strict;
use warnings;
...
$table->modify(td=>{align=>'right'});

print $table->output;

... rest of code untouched
$table->add_cols({name=>'Device',data=>[@dev],before=>0});

print $table->output;