#!/usr/bin/perl
open(group,"<./source/group.unl") or die "group.unl file is not exists\n";
open(corpinfo,">./data/corpinfo.txt") or die "error $1\n";
open(user,"<./source/user.unl") or die "user.unl file is not exists\n";
open(corpmember,">./data/corpmember.txt") or die "error $1\n";
open(home,"<./source/homegroup.unl") or die "homegroup.unl file is not exists\n";
#open(homeinfo,">./data/homeinfo.txt") or die "error $1\n";
open(hus,"<./source/homeuser.unl") or "homeuser.unl file not exists\n";
open(homeuser,">./data/homeuser.txt") or die "error $1\n";