perl에서 DBI를 써서 데이터를 처리하는 도중에 텍스트 파일을 읽어서 비교하기.

개발자는 아니고 인프라 컨설팅을 배우고 있는 사람입니다.
개인 프로젝트로 perl을 이용해서 HR연동 프로그램을 만들고 있는데 잘안되고 있어서 글올립니다.
일단 MSSQL에서 DBI로 데이터 읽고나서 텍스트를 읽어서 출력하려 하는데 구문에 오류가 없어보이는데도 아래 항목의 4번째에서 텍스트 출력이 안됩니다.
고수님들의 지도편달 부탁드립니다.
#!c:\perl\bin\perl.exe

use DBI; #DBI모듈 사용
# 1.dept_info의 값을 읽어서 공백을 잘라내고 화면에 출력
#DB에 접속
$dbh = DBI->connect('DBI:ODBC:ADM', 'root', 'P@ssw0rd');
$sth = $dbh->prepare( q{ select * from dept_info }); # 쿼리 준비
$sth->execute; # 쿼리 실행
while (($user_deptcode,$user_deptname,$parent_deptcode,$sortcode) = $sth->fetchrow_array) {
$user_deptcode =~ s/^\s+|\s+$//g;
$user_deptname =~ s/^\s+|\s+$//g;
$parent_deptcode =~ s/^\s+|\s+$//g;
$sortcode =~ s/^\s+|\s+$//g;
open( FILEHANDLE, '>>c:\windows\temp\DEPT-Metadata.tmp');
print "$user_deptcode,$user_deptname,$parent_deptcode,$sortcode\n";
print FILEHANDLE "$user_deptcode,$user_deptname,$parent_deptcode,$sortcode\n";
close FILEHANDLE;
}
$sth->finish;
$dbh->disconnect;

# 2.user_info의 값을 읽어서 공백을 자르고 화면에 출력
#(user_info)select Query실행
$dbh = DBI->connect('DBI:ODBC:ADM', 'root', 'P@ssw0rd');
$sth = $dbh->prepare( q{ select * from user_info }); # 쿼리 준비
$sth->execute; # 쿼리 실행

#(user_info)fetchrow_array 에 있는 값을 불러와서 화면에 출력
while (($user_id,$user_pwd,$user_sabun,$user_name,$user_juminnum,$user_mail_cns,$user_deptcode,$user_dutycode,$user_jobclass,$user_cellnum,$user_phonenum,$user_faxnum) = $sth->fetchrow_array) {
$user_id =~ s/^\s+|\s+$//g;
$user_pwd =~ s/^\s+|\s+$//g;
$user_sabun =~ s/^\s+|\s+$//g;
$user_name =~ s/^\s+|\s+$//g;
$user_juminnum =~ s/^\s+|\s+$//g;
$user_mail_cns =~ s/^\s+|\s+$//g;
$user_deptcode =~ s/^\s+|\s+$//g;
$user_dutycode =~ s/^\s+|\s+$//g;
$user_jobclass =~ s/^\s+|\s+$//g;
$user_cellnum =~ s/^\s+|\s+$//g;
$user_phonenum =~ s/^\s+|\s+$//g;
$user_faxnum =~ s/^\s+|\s+$//g;
open( FILEHANDLE, '>>c:\windows\temp\USER-Metadata.tmp');
print "$user_id,$user_pwd,$user_sabun,$user_name,$user_juminnum,$user_mail_cns,$user_deptcode,$user_dutycode,$user_jobclass,$user_cellnum,$user_phonenum,$user_faxnum\n";
print FILEHANDLE "$user_id,$user_pwd,$user_sabun,$user_name,$user_juminnum,$user_mail_cns,$user_deptcode,$user_dutycode,$user_jobclass,$user_cellnum,$user_phonenum,$user_faxnum\n";
close FILEHANDLE;
}
$sth->finish;
$dbh->disconnect();

exec ('"dsquery ou forestroot >>c:\windows\temp\ds-ou.tmp & dsquery user | dsget user -samid >>c:\windows\temp\samid.tmp"');

# 3.user_info의 값을 읽어서 공백을 자르고 화면에 출력
#(user_info)select Query실행
$dbh = DBI->connect('DBI:ODBC:ADM', 'root', 'P@ssw0rd');
$sth = $dbh->prepare( q{ select * from user_info }); # 쿼리 준비
$sth->execute; # 쿼리 실행
while (
($user_id,$user_pwd,$user_sabun,$user_name,$user_juminnum,$user_mail_cns,$user_deptcode,
$user_dutycode,$user_jobclass,$user_cellnum,$user_phonenum,$user_faxnum) = $sth->fetchrow_array) {
$user_id =~ s/^\s+|\s+$//g;
$user_pwd =~ s/^\s+|\s+$//g;
$user_sabun =~ s/^\s+|\s+$//g;
$user_name =~ s/^\s+|\s+$//g;
$user_juminnum =~ s/^\s+|\s+$//g;
$user_mail_cns =~ s/^\s+|\s+$//g;
$user_deptcode =~ s/^\s+|\s+$//g;
$user_dutycode =~ s/^\s+|\s+$//g;
$user_jobclass =~ s/^\s+|\s+$//g;
$user_cellnum =~ s/^\s+|\s+$//g;
$user_phonenum =~ s/^\s+|\s+$//g;
$user_faxnum =~ s/^\s+|\s+$//g;
print "$user_id,$user_pwd,$user_sabun,$user_name,$user_juminnum,$user_mail_cns,$user_deptcode,$user_dutycode,$user_jobclass,$user_cellnum,$user_phonenum,$user_faxnum\n";
}
$sth->finish;
$dbh->disconnect();

# 4.여기서 부터 SAMID를 읽음.
use strict;

open (SAMID, " my $line;
while( $line = ){
$line =~ s/^\s+|\s+$//g;
chomp($line);
print "$line\n";
}
close SAMID;

#4번은 자꾸 글이 안올려지네요.. 4번 자체에는 문제가 없으며 4번만 잘라서 실행하면 문제가 없지만 함께 실행하면 실행이 안되네요.. TT