#!/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;