use DBI;
use strict;

open(FILE,"> entities");

my $connect_dsn = 'DBI:mysql:connect:172.29.44.253 ';
my $connect_db_user = 'irconnect';
my $connect_db_paswd = 'irconnect123';

my $connect_dbh = DBI->connect ($connect_dsn, $connect_db_user, $connect_db_paswd, {mysql_auto_reconnect => 1});

my $connect_sth = $connect_dbh->prepare ("SELECT profile_name from connect_master");
$connect_sth->execute();
my @row = ();
while(@row = $connect_sth->fetchrow_array()){
	print FILE $row[0]."\n";
}
close(FILE);
