(* Demonstration MacOS/OSX app in AppleScript and Perl *)
(* Posted at perlmonks.org by Anonymous Monk 6/13/2018 *)
(* Node: How to write apps for macOS/OSX in Perl!      *)

repeat
	repeat
		try
			set ASN to text returned of (display dialog "Autonomous System Number:
(Example: 714 is Apple Inc. 666 does not exist. Blank to exit.)" with title "Perl ASN Check" default answer "" buttons {"Check"} default button 1)
			set ASN to ASN as number # require a number
			exit repeat # continue if ASN is numeric
		on error # not a number?
			display alert "Please enter an Autonomous System Number!" as critical
		end try
	end repeat
	
	if ASN is equal to 0 then return # exit if blank
	
	# ALL MACS HAVE PERL BABY!
	set RES to do shell script "
		perl -MHTTP::Tiny -e '
			my $r = HTTP::Tiny->new->get(q~https://freeapi.robtex.com/asquery/" & ASN & "~);
			if (length $r->{content}) {
				$r->{content} =~ /[0-9]+\\.[0-9]+\\.[0-9]+\\.[0-9]+/
				? print q~ASN Exists!~ : print q~ASN Not Found!~;
			}
			else {
				print q~Download failed!~
			}
		'
	"
	display alert RES
end repeat