sub feed {

          ...code...
	while($l < $2) {
          ...code...
	}
	die "Could not retreive data";

}