open PL, 'pvclength.txt' or die "Cant open file";
$pvc_l=<PL>;
chomp $pvc_l;

open GIL, 'gilength.txt'or die "Cant open file"; 
$gipipe_l=<GIL>; 
chomp $gipipe_l;

open QGBS, 'qgibendsocket.txt' or die "Cant open file";
$gibend_sck_q=<QGBS>;
chomp $gibend_sck_q;