#!/usr/bin/perl

open(FILE, "<motd.$ARGV[0]");
my @array = <FILE>;
close(FILE);


foreach $line (@array)
{
    chomp($line);
    print "$line\n";
    system("./console $ARGV[0] $line");
}
