#!c:\perl\bin

use DBI;

$user = "user";

$password = "password";

my $dbh = DBI->connect("dbi:ODBC:Remedy", $user, $password) or die "Can't connect to Remedy: $DBI::errstr";

my $sth = $dbh->prepare( q{SELECT ISSUE_NUMBER, SUBMISSION_DATE, ASSIGNED_TO, ISSUE_PRIORITY, STATUS, FULL_DESCRIPTION, ISSUE_DUE_DATE, ISSUE_CLOSE_DATE, RESOLUTION_PROCESS_NOTES, ORIGINATOR FROM "BMS:ITS Issue Creation"}) or die "Can't prepare statement: $DBI::errstr";

my $rc = $sth->execute or die "Can't execute statement: $DBI::errstr";

print "Query will return $sth->{NUM_OF_FIELDS} fields.\n\n";
print "Field names: @{ $sth->{NAME} }\n";

open (FILE, ">test.txt");

while (($issue_num, $sub_date, $assigned_to, $issue_priority, $status, $full_desc, $issue_due_date, $issue_close_date, $res_notes, $originator) = $sth->fetchrow_array) {
    print FILE "$issue_num\n";
    print FILE "$sub_date\n";
    print FILE "$assigned_to\n";
    print FILE "$issue_priority\n";
    print FILE "$status\n";
    print FILE "$full_desc\n";
    print FILE "$issue_due_date\n";
    print FILE "$issue_close_date\n";
    print FILE "$res_notes\n";
    print FILE "$originator\n";
    print FILE "------------------------------------------------\n\n";
}

close (FILE);

# check for problems which may have terminated the fetch early
die $sth->errstr if $sth->err;

$dbh->disconnect;

exit;

##</code><code>##

perl -e '$cat = "cat"; if ($cat =~ /\143\x61\x74/) { print "Its a cat!\n"; } else { print "Thats a dog\n"; } print "\n";'