Connection DB

#!/usr/bin/perl

# PERL MODULES WE WILL BE USING
use DBI;
use DBD::DB2;

# HTTP HEADER
print "Content-type: text/html \n\n";

# CONFIG VARIABLES
$platform = "DB2";
$database = "S634E05A";
$host = "S634E05A";
$port = "8471";
$user = "fiel";
$pw = "fiel";

#DATA SOURCE NAME
$dsn = "dbi:$platform:$database:$host:$port";

# PERL DBI CONNECT
$DBIconnect = DBI->connect($dsn, $user, $pw);