#!perl use strict; use Function::Parameters; fun get_ip( $agent ) { } fun get_record( $agent, $target_name ) { for my $record ( @$records ) { } } 'ok'