# Untaint $db, $args and $columns. $db =~ /(.*)/; $db = $1; $args =~ /(.*)/; $args = $1; $columns =~ /(.*)/; $columns = $1; $stripheader =~ /(.*)/; $stripheader = $1; my @entries = qx{ $ROW $args < $db $columns $stripheader };