#!/usr/local/bin/perl 
my $originating_machine; 

#logic to find the originating machine 

if ($originating_machine =~ /allowed_machine_name/) { 
#do something 
} 
else { 
print("cant continue"); 
exit 1; 
}