Select Code to Download

use Modern::Perl;
use Data::Dump qw/dump/;
use DBI;
...
my $result = $dbh->selectall_arrayref($query);

print dump($result);

[
  ["vm1", "fd1", "1.1.1.1", "fd4"],
  ["vm2", "fd2", "1.1.1.2", "fd3"],
  ["vm3", "fd3", "1.1.1.3", "fd2"],
  ["vm4", "fd4", "1.1.1.4", "fd1"],
]