#! /usr/bin/perl -w
use strict;

@_ = qw( Lucy, I'm home! );

sub main {
while(my $d = shift) {
    print "$d\n";
}
}

&main;