Select Code to Download

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