Something

$scan->register_host_closed_event(\&host_offline);

sub host_offline {
    my $self = shift;
    my $host = shift;
    print "computer off (". $host->hostname(). ")\n";
}