#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Bugzilla;


{
	my $retval = Bugzilla->dbh->selectall_arrayref
	(
		'SELECT servicenow, Task_Type, Short_Description, Customer, Priority, Assignment_Group,Assignment_ID FROM service_now where bug_id=237177'
	);

	print Dumper $retval;
}

exit;

__END__

C:\Steve\Dev\PerlMonks\P-2013-11-05@1128-DBI>testdb.pl
Can't locate Bugzilla.pm in @INC
  (@INC contains:
    C:\Steve\Perl
    C:/Perl/Perl-5.16.3.1603/site/lib
    C:/Perl/Perl-5.16.3.1603/lib
    .
  ) at C:\Steve\Dev\PerlMonks\P-2013-11-05@1128-DBI\testdb.pl line 7.
BEGIN failed--compilation aborted at
  C:\Steve\Dev\PerlMonks\P-2013-11-05@1128-DBI\testdb.pl line 7.