a semi-colon is missing after in line 16
so , it should be

open(DAT,$proxyfile) || die("Can't open proxy file"); 
my @proxys=<DAT>; 
close(DAT);