if ($res)
{
    foreach (@$res)
    {
        my $line = @{$_->location}[0];
        print "# line number: $line \n";
        print "$_\n";
    }
}