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

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

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