A Procedural Approach 

#!/usr/bin/perl

use Label::HiIAm;

print "Enter your name: ";
my $name = <STDIN>;

print "Enter your organisation: ";
my $org = <STDIN>;

Label::HiIAm::print_label($name, $org);