click to view images

AB212-AC BRIGHT BRASS SOLID BRASS FLOOR REGISTERS

Elite Collection From Decor Grates
 


#!/usr/bin/perl print "Content-type: text/plain\n\n"; $WidgetDelimiter = "\\(1\\)"; $WidgetFile = "data/registers.txt"; open(WIDGET, "$WidgetFile") || die "Cannot open $WidgetFile\n"; @widget = ; $bigdata = join("",@widget); @widget = split(/$WidgetDelimiter/,$bigdata); #@widget = split(/\(1\)/,$bigdata); $WidgetCount= @widget; srand(); $WidgetIndex = int(rand($WidgetCount)); print "$widget[$WidgetIndex]";
cannot connect