package utils; use strict; use warnings; use feature qw( say ); use Exporter qw( import ); our @EXPORT_OK = qw( print_1 print_2 ); our %EXPORT_TAGS = ( foo => [ qw( print_1 ) ], bar => [ qw( print_2 ) ], ); sub print_1 { say "1: ", @_; } sub print_2 { say "2: ", @_; } 1;