use Modern::Perl;
use My::Cunning::Module qw/looper/;

# somewhere in your program
looper($data) or die 'It did not work';