Help for this page

Select Code to Download

Select or download this

use constant database => "Repairs";       #the database name
use constant hostname => "192.168.1.111"; #MySQL server IP address
use constant port     => '3306';          #MySQL port

Select or download this

#!/usr/bin/perl -w
use strict;
...
END_TOP

print $STDOUT_TOP;