#!/usr/bin/perl

open HG, '|second.pl';
print HG <<'CMM';
ASDFAS
SADF
ASDF
ASDFSA
DF
ASD
FAS
DF
ASDF
AS
DF
ASDF
AS
D
FHE
WT
UWR
EUW
RTJ
SRJ
TT
H
CMM
close HG;

##</code><code>##

#!/usr/bin/perl

open RG, '>./register.txt';
while (<STDIN>) {# i'm test with ARGV,STDIN,ENV and nothing happend
      print RG;
}
close RG;