sub my_sub {
    my %params = @_;

    print "Title: $params{-title}\n";
}