mirror of
https://github.com/Arvanaghi/CheckPlease
synced 2026-06-08 10:25:16 +00:00
Brandon Arvanaghi
5 lines
104 B
Perl
5 lines
104 B
Perl
use Net::Domain qw (hostdomain);
|
|
|
|
if (lc(hostdomain()) eq lc(join(" ", @ARGV))) {
|
|
print "Proceed!"
|
|
} |