eval {
    &feed;
}; unless ( $@ ) {
    &error;
}
sub feed {

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

}