#!/bin/perl5

use strict;
use warnings;
use lib qw{local/lib};
use Article qw{article_layout};

layout();

sub layout {
    #...
    my ($headline, $body, $url) = qw{one two three};

    article_layout($headline, $body, $url);

}