my $seen;
# ...
    if ($output eq '3000') {
        $seen = 1;
        # ...
}
put_log('fail') unless $seen;