Select Code to Download

#!/usr/bin/perl
# This script watches the /var/log/secure

my @safe = qw/ 192.168.0.1 /;
[Some code]
my @rejects;

if ( !defined( $db{$ip} ) ) {
    push ( @{ $db{$ip} }, $epoch );
}
else {
    push ( @{ $db{$ip} }, $epoch );

my @safe = @_;
foreach (@safe) {
    return 1 if $ip eq $_;
}
return 0;