use strict ;
use warnings;

sub insert_alias {print "insert $_[0]\n"; return 1}

insert_alias('Mike');
insert_alias('SAINT');